EDIZIONE ITALIANA 



















































































EDIZIONE ITALIANA 


PET/CBM 

GUIDA ALL USO 


VOLI 


Adam Osborne 
Carrol S. Donahue 


GRUPPO 

EDITORIALE 

JACKSON 





© Copyright per l’edizione originale McGraw-Hill Ine. 1980 
© Copyright per l’edizione Italiana McGraw-Hill lnc.1984 

Il Gruppo Editoriale Jackson ringrazia per il prezioso lavoro svolto nella stesura dell’edizione 
italiana la signora Francesca Di Fiore, e ring. Roberto Pancaldi. 

Traduzione italiana a cura del ring. Enrico Odetti. 

Tutti i diritti sono riservati. Stampato in Italia. Nessuna parte di questo libro può essere riprodotta, 
memorizzata in sistemi di archivio, o trasmessa in qualsiasi forma o mezzo, elettronico, meccanico, 
fotocopia, registrazione o altri senza la preventiva autorizzazione scritta dell'editore. 

Fotocomposizione: Lineacomp S.r.l. - Via Rosellini, 12 - 20124 Milano 

Stampato in Italia da: 

S.p.A. Alberto Matarelli - Milano - Stabilimento Grafico 


II 



PREFAZIONE 


Quest’opera, presentata in due volumi, è una guida all’uso dei calcolatori CBM. 
Oltre ai calcolatori CBM vengono ampiamente descritte anche le unità periferiche 
di registrazione dei dischetti, i “drive”, quelle per le cassette magnetiche e le 
stampanti. 

La presentazione del linguaggio BASIC CBM è molto dettagliata e facile. Il 
lettore viene “guidato” dalle prime e più semplici nozioni di programmazione dei 
calcolatori CBM fino a quelle più complesse e sofisticate. Tutte le istruzioni del 
BASIC CBM sono illustrate dapprima con facili esempi esplicativi poi con pro¬ 
grammi più complessi, ma molto ben documentati. Il lettore troverà, oltre alla 
descrizione dei calcolatori CBM, anche molte utilissime notizie e informazioni che 
riguardano i personal computer in generale. 

Il primo volume di questa guida contiene nei capitoli 1 e 2 l’introduzione ai 
calcolatori CBM e i loro modi d’impiego. Il capitolo 3 tratta l’elaborazione di testi 
o “editing”. Il capitolo 4 è dedicato ai fondamenti di programmazione in BASIC 
CBM. Il capitolo 5 sviluppa ulteriormente la programmazione dei calcolatori 
CBM. 

L’impiego delle unità periferiche, la descrizione del Sistema CBM e le appendici 
sono riportati nel secondo volume. 
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CAPITOLO 1 


INTRODUZIONE Al CALCOLATORI CBM 


Questo libro descrive i seguenti calcolatori Commodore: 

1. Il PET 2001/8K 

2. Il PET 2001/8N, 2001/16N e 2001/32N 

3. Il CBM 2001/16B e 2001/32B 

4. La serie CBM 4000 

5. La serie CBM 8000. 


Nel 1977 la Commodore Business Machines presentò il primo calcolatore della 
serie il PET 2001 (Personal Electronics Transactor). IL PET 2001 è un'unità 
compatta comprendente una tastiera grafica e una unità a cassette magnetiche. Il 
CBM 2001, che fu presentato successivamente, ha una tastiera grafica completa. 
Sebbene funzionalmente eguale al PET, il CBM 2001 e i successivi modelli, non 
hanno l’unità a cassette magnetiche assemblata al suo interno. Essi dipendono 
invece da periferiche esterne per memorizzare informazioni. Il calcolatore commer¬ 
ciale CBM 2001/B è una variazione del CBM 2001. La maggior differenza fisica tra 
il CBM 2001 e il CBM 2001/B concerne la tastiera; il CBM 2001 ha una tastiera con 
simboli grafici completa, mentre il CBM 2001/B ha una tastiera tipo macchina da 
scrivere standard senza simboli grafici sui tasti. Il CBM 8016 e il CBM 8032 sono 
calcolatori commerciali presentati più di recente. Ambedue hanno un display video 
a 80 colonne e per il resto sono equivalenti al CBM 2001/B. Il CBM 8032 e il CBM 
8016 sono identici, salvo che il primo ha una memoria doppia rispetto al secondo. 

La Commodore ha presentato anche stampanti e unità a disco. Vengono inoltre 
continuamente aggiornati il BASIC Commodore e il software del sistema operativo 
a disco. 

Il primo calcolatore della Commodore è stato il PET che divenne subito molto 
famoso. I calcolatori recentemente introdotti portano invece il nome CBM. Per 
brevità in questo libro si adotterà la convenzione di chiamare tutta la linea di 
calcolatori con il nome CBM salvo che non sia espressamente richiamato il nome 
originale PET. Le unità CBM 8016 e CBM 8032 saranno indicate con il numero 
generico CBM 8000 salvo che non sia diversamente richiesto. 

Attualmente i calcolatori CBM sono disponibili con memoria di 8 K, 16 K o 32 
Kbyte. Solamente il primo PET aveva una opzione per una memoria di 4 Kbyte. 1 K 
significa 1024 che equivale a 2 10 . Un byte contiene un carattere. Le indicazioni di 8 
K, 16 K e 32 K si riferiscono alla memoria disponibile per operazioni di lettura e 
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Figura 1-1: Calcolatore CBM 8000 

scrittura. Ogni calcolatore CBM ha un’altra memoria che non è accessibile dall’u¬ 
tente. È molto importante conoscere quanta memoria di lettura/scrittura è disponi¬ 
bile. Un calcolatore CBM con più memoria può eseguire programmi più lunghi e 
gestire anche più dati. 


MODELLI CBM 

Il CBM 8000 (CBM 8016 e 8032) 

Il modello CBM 8000 è indicato in Figura 1-1. La sua caratteristica più notevole 
riguarda il grande schermo a 80 colonne, detto anche display a Tubo a Raggi 
Catodici (CRT). Ha una tastiera completa tipo macchina da scrivere, alcuni tasti 
speciali per l’“editing” sullo schermo e una tastiera solo numerica sulla destra della 
macchina. Il CBM 8016 ha 16 Kbyte di memoria di lettura/scrittura (non è però 
disponibile in Italia). Il CBM 8032 ha invece 32 Kbyte di memoria di lettura/scrittu¬ 
ra. Si vede quindi che il numero di modello CBM si correla con la dimensione della 
memoria di lettura/scrittura disponibile. Per completare un sistema commerciale è 
necessario aggiungere una unità a cassette magnetiche o una unità a disco. È 
probabile che sia necessaria anche una stampante. 
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il CBM 2001/B 


Il CBM 2001/B, come il CBM 8000, è un calcolatore commerciale; vedi Figura 1-2. 
Il display del modello CBM 2001/B è largo 40 colonne e cioè metà della larghezza 
del display del modello CBM 8000. Il CBM 2001/B ha una tastiera completa con 
tasti per l’editing sullo schermo e tastiera solo numerica sulla destra. Il CBM 
2001/B è disponibile con 16 K o 32 Kbyte di memoria di lettura/scrittura. Come il 
CBM 8000 anche il CBM 2001/B avrà probabilmente bisogno di una unità esterna a 
cassette magnetiche o a disco e forse anche di una stampante. 


Il PET 2001/N 

La serie PET 2001/N è una versione migliorata del calcolatore originale PET, vedi 
Figura 1-3. Il display è identico a quello del 2001/B. Il PET 2001/N si distingue dal 
calcolatori commerciali per i tasti con simboli grafici presenti sulla sua tastiera. Il 
PET 2001 è disponibile con memoria di lettura/scrittura di 8 K (/8N), 16 K(/16N) 
o 32 K (/32N) byte. Il PET 2001/N e il CBM 2001/B hanno le stesse caratteristiche 
di collegamento con le periferiche esterne come cassette, dischi o stampanti. 



Figura 1-2: Calcolatore CBM 2001/B 
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Figura 1-3: Calcolatore PET 2001/N 



Figura 1-4: Calcolatore PET 2001/8K 
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Figura 1-5: Vista del retro di un calcolatore CBM 


Il PET 2001/8 K 

Il PET 2001/8 K è stato il primo calcolatore presentato dalla Commodore Business 
Machines. Tutti i modelli CBM successivi sono una evoluzione dell’originale PET 
2001/8 K. Il PET 2001/8 K, pur avendo lo stesso display del CBM 2001, si distingue 
per la sua tastiera compatta e colorata. I simboli grafici sono rappresentati anche sui 
tasti (vedi Figura 1-4). 

Grazie alla ridotta dimensione della tastiera, una unità a cassette magnetiche è 
assemblata sulla sinistra del calcolatore stesso. Il PET 2001/8 K è l’unico modello 
che comprende una cassetta al suo interno, ma questo comporta lo svantaggio di 
avere una tastiera più piccola e meno comoda da usare. Il PET 2001 /8 K ha 8 Kbyte 
di memoria di lettura/scrittura. Sono però disponibili espansioni della memoria a 
16 K e 32 K. Il PET, come tutti i calcolatori CBM, contiene anche una memoria di 
sola lettura (“Read Only Memory” ROM) che non è accessibile dall’utente. Questa 
memoria ROM contiene i programmi permanenti che personalizzano lo specifico 
modello di calcolatore. Molti calcolatori PET hanno una “vecchia personalità”, 
dovuta ad una vecchia serie di memorie ROM. 

Una seconda unità a cassette esterna può essere collegata ad un calcolatore PET. 

Una stampante o un disco può essere collegato a un PET 2001/8 K solo se 
contiene memorie ROM con revisione di livello 3. 
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CARATTERISTICHE CBM 


PANNELLO POSTERIORE 

Ogni interruttore, connettore o interfaccia è posto sul retro del calcolatore CBM. 
La Figura 1-5 mostra il retro del calcolatore CBM con la descrizione delle singole 
parti. È importante conoscere la posizione e la funzione delle singole parti così da 
non danneggiare il calcolatore per uso errato delle connessioni. 


INTERRUTTORE DI ALIMENTAZIONE 

L’interruttore di alimentazione è posto sul lato sinistro del pannello posteriore 
esso è un interruttore tipo “rocker” a due posizioni. Premendolo sul lato esterno si 
accende il calcolatore, premendolo invece sul lato interno si spegne. 


CAVO DI ALIMENTAZIONE 

Il cavo di alimentazione a 3 fili connette il calcolatore CBM ad una presa elettrica 
a corrente alternata. 

Si raccomanda di verificare che la tensione applicata sia quella prevista per la 
corretta alimentazione del calcolatore, (per l’Europa 220 V e 50 Hz). 


INTERFACCIA IEEE 488 

L’interfaccia IEEE 488 (punto J 1 dello schema) permette al calcolatore CBM di 
comunicare con le periferiche esterne. Mediante il cavo IEEE si connette appunto 
una stampante o un disco all’interfaccia IEEE 488.* 


PORTE UTENTE PARALLELE (USER PORT) 

Questa interfaccia (punto J2 dello schema) può essere usata al posto del connet¬ 
tore IEEE 488 per collegare periferiche al calcolatore CBM. Non è necessario 
conoscere il suo funzionamento. Se una periferica la dovesse usare, vi sarà fornita 
l’opportuna documentazione per effettuare il collegamento. 


* Per una descrizione dettagliata dell’interfaccia IEEE 488 si veda “PET and thè IEEE 488 Bus (GPIB)” 
di E. Fisher e C.W. Jensen edito da Osborne/McGraw-Hill, 1980. 


6 



INTERFACCIA PER CASSETTE MAGNETICHE 

Questa interfaccia è stata progettata unicamente per unità esterne a cassette 
(punto J3 dello schema). Essa è posta sulla destra ed è facilmente individuabile 
perchè di piccole dimensioni. 

CONNETTORE PER L’ESPANSIONE DI MEMORIA 

È posto sul lato posteriore destro (punto J4) e non è necessario conoscerlo in 
dettaglio. E possibile espandere la memoria di lettura/scrittura di un calcolatore 
CBM tramite questo connettore. 


MANOPOLA PER LA REGOLAZIONE DELLA LUMINOSITÀ’ 

Questa manopola controlla la luminosità dello schermo del display. Provate a 
ruotare la manopola tutta a sinistra e poi tutta a destra, osservando lo schermo, e 
così vedrete variare la luminosità e brillantezza dei caratteri. 

DISPLAY VIDEO 

Il display video è simile allo schermo di un televisore bianco e nero (con 
persistenza bianca per i vecchi modelli e verde per i nuovi), ma con una ben 
maggiore risoluzione. Questo significa che si possono vedere piccole immagini e 
caratteri con maggior chiarezza. 

A seconda del modello si possono avere 1000 o 2000 singole posizioni dei caratteri 
divise in 25 righe di 40 caratteri o 25 righe di 80 caratteri. I caratteri sono a loro volta 
formati da punti di una matrice di 8 x 8 punti. Vedere la Figura 1-6. 

I diversi tipi di display sono descritti separatamente. Se avete un CBM 8000 
leggete la seguente descrizione e saltate poi al paragrafo riguardante le tastiere. Se 



Figura 1-6: Matrice a punti 8x8. 
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avete invece un CBM 2001/B o un 2001 o un PET saltate invece il seguente 
paragrafo sul CBM 8000. 

CBM 8000 

Il display video del CBM 8000 differenzia il modello CBM 8000 dagli altri modelli. 
Lo schermo è diviso in 2000 spazi eguali ripartiti in 25 righe di 80 caratteri l’una. Ad 

ogni spazio corrisponde un carattere a cui è associato un byte della memoria. 

Sullo schermo si possono visualizzare caratteri alfabetici, numerici, simboli 
speciali e grafici. Il CBM 8000 normalmente visualizza caratteri alfabetici sia 
minuscoli che maiuscoli mediante un insieme di caratteri che noi chiameremo 
“insieme alternativo”. 

C’è anche in insieme di caratteri standard che permette di rappresentare caratteri 
grafici, ma non caratteri minuscoli. 

CBM 2001/B, PET 2001/N, PET 2001/8 K 

I display video dei modelli CBM 2001/B, PET 2001/N e PET 2001/8 K sono 
praticamente gli stessi. Il display è diviso in 1000 spazi ripartito in 25 righe di 40 
caratteri l’una. Ogni carattere è visualizzato in uno spazio. 

Tutti i modelli hanno due tipi di caratteri: alfanumerici (alfabetici, numerici e 
caratteri speciali) e simboli grafici. Il modello CBM 2001/B, come tutti i modelli 
CBM 8000, visualizza l’insieme di caratteri alternativo con lettere minuscole e 
maiuscole; i simboli grafici fanno parte dell’insieme standard. 

II PET visualizza normalmente l’insieme di caratteri standard che comprende le 
maiuscole alfanumeriche e i simboli grafici. Lettere minuscole e maiuscole fanno 
parte dell’insieme di caratteri alternativo. 

ACCENSIONE DEL CALCOLATORE 

Per accendere il calcolatore CBM procedete come segue: 

1. Inserite il cavo di alimentazione in una presa di corrente dotata di messa a terra. 
Non tentate di inserire la spina in una presa di corrente non dotata di messa a terra 
oppure di rimuovere lo spinotto di terra! Se il calcolatore non è opportunamente 
collegato a terra può ricevere uno shock elettrico. 

2. Accendete il calcolatore premendo sul lato esterno l’interruttore di alimenta¬ 
zione posto sul retro. 

3. Attendete l’avviso di READY. Dopo qualche secondo dall’accensione appari¬ 
ranno i seguenti messaggi sullo schermo: 

### COMMODORE BASIC ### 

XXXXX BVTES FREE 

READY 

« 
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-Queste quattro linee hanno il seguente significato: 

### COMMODORE DRSIC ### Indica che il linguaggio BASIC è stato attivato. 

XXXXX BVTE3 FREE Indica quanta memoria è disponibile all'utente: 

3071 (o un numero simile) nel caso di calcolatore PET con 4 K. 

7167 (o un numero simile) nel caso di CBM con 8 K, 

15359 (o un numero simile) per un CBM con 16 K. 

31743 (o un numero simile) per un CBM con 32 K. 

REflDV II calcolatore è pronto per ricevere informazioni. 

Il cursore è posizionato sullo schermo dove apparirà il primo carattere che 
sarà battuto sulla tastiera. 


Se non si ottengono i messaggi sopra indicati spegnete il calcolatore e accendetelo 
nuovamente dopo pochi secondi. Lo schermo potrà apparire pieno di caratteri a 
caso per un secondo o più. Ciò è normale ogni volta che si spegne e si accende il 
calcolatore dopo un brevissimo tempo: non preoccupatevi! 

GRUPPI DI TASTI DELLE TASTIERE CBM 

La tastiera dei calcolatori CBM è impiegata per l’ingresso di istruzioni, di program¬ 
mi e di dati. Il tipo di tastiera dipende dal tipo di calcolatore CBM. Salvo poche 
eccezioni, gli stessi tasti sono presenti sia nelle tastiere compatte che in quelle 
normali. Alcuni tasti si trovano in posizione diversa a seconda del modello di 
calcolatore. 

I tasti delle tastiere CBM possono essere suddivisi come segue: tasti alfabetici, tasti 
numerici, tasti per simboli speciali, tasti grafici, tasti per funzioni e tasti per il 
controllo del cursore. 

Tasti alfabetici 

I tasti alfabetici forniscono le 26 lettere dell’alfabeto inglese, dall’A alla Z. 
Minuscole e maiuscole sono presenti in tutti i calcolatori CBM. 

Tasti numerici 

I tasti numerici forniscono le cifre 0,1,2,3,4,5,6,7,8 e 9. 

Tasti per simboli speciali 

Simboli e caratteri speciali possono comprendere segni di interpunzione e altri 
simboli comunemente usati. Per esempio il punto, la virgola, il “+” dell’addizione, il 
” della sottrazione, ecc. Altri caratteri universalmente impiegati sono il segno del 
dollaro “$”, il segno di percentuale “%”, ecc. 

Alcuni caratteri rappresentano una specifica operazione o hanno un preciso 
significato in una istruzione BASIC. Vedere per una spiegazione dettagliata il 
capitolo 4. 
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Tabella 1-1: Tasti per i caratteri grafici. 


Linee 

Orizzontali 


Quarto di Blocco 
Solido 


n 

Superiore 

7 

Superiore 

BUI 

Sinistro Superiore 
Destro Superiore 

a 

1 

Superiore 

m 

3/4 Superiore 

/ 

Inferiore 

00 

Sinistro Inferiore 
Destro Inferiore 

B 

2 

Inferiore 

=3 

D 

2/3 Superiore 

C 

4 

Sinistra 

0 

Diagonale 

3 

Sinsitro 

olii 

Medio 

3 

* 

Destra 



+ 

Destro 


= Quasi Medio 


2/3 Inferiore 


3/4 Inferiore 


j - Inferiore 


Linee 

Verticali 


^ Sinistra 


Barra Spessa 

[fi Superiore 


^ Inferiore 


t Sinistra 


? Destra 

b 


Quarto di Blocco 
Aperto (Angolo) 

Sinistro Superiore 
Destro Superiore 




Z"ì Diagonale 
N Destro 


Sinistro Inferiore 
Destro Inferiore 


M j Sinistro 


£ 3/4 Sinistra 


q j 2/3 Sinistra 


g j Quasi Medio 


^ 1 Medio 


Mezzo Blocco 

ts Sinistra 


® Inferiore 


Angoli Rotondi 


E S Sinistro Superiore t Mezza 
U I Destro Superiore \ Sinistra 


S E Sinistro Inferiore B Mezza 

J K Destro Inferiore ( Inferiore 


3/4 Destra 


, Destra 


Triangolo Solido 

T. Sinistro 
. * Superiore 


— j Superiore 


Semi delle Carte 

('♦'ir*! Picche 

LAJ l S j Cuori 

fri nT| Quadri 
1 2 J i X j Fiori 


^ Solido 
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Tasti grafici 

La tastiera CBM comprende ben 62 simboli grafici ottenuti con la posizione 
“shift” dei tasti. E possibile quindi creare disegni molto sofisticati. 

I caratteri grafici, con la loro rispettiva denominazione, sono elencati nella Tabella 
1-1. Simboli simili sono raggruppati assieme così da rendere facilmente comprensi¬ 
bili alcune opzioni grafiche. Si noti che il quadrato, che racchiude i simboli grafici 
nella Tabella 1-1, non fa parte del simbolo stesso. Il quadrato è stato aggiunto 
infatti per dare un riferimento spaziale al simbolo. 

Tasti per funzioni 

SHIFT. Il tasto di shift si può premere contemporaneamente ad ogni altro tasto e 
permette di commutare tra i caratteri inferiori e quelli superiori della tastiera. Tutti i 
tasti forniscono caratteri diversi a seconda che la tastiera sia in posizione “shift” o 
“non-shift” (caratteri superiori o inferiori) eccetto il tasto ESC. Se SHIFT non è 
premuto si hanno i caratteri inferiori se premuto invece si hanno i caratteri 
superiori. 

Per maggior praticità sulla tastiera sono presenti due identici tasti SHIFT : uno in 
basso a sinistra ed uno in basso a destra. 

SHIFT LOCK (solo per la tastiera grande). Questo tasto è posizionato sopra il 
tasto SHIFT di sinistra. Esso va premuto sino allo scatto e permette di bloccare 
ambedue i tasti SHIFT nella posizione bassa così da lasciar libere le mani per 
battere altri caratteri come in una normale macchina da scrivere. Per sbloccare il 
tasto SHIFT LOCK basta premerlo una seconda volta. 

RETURN. Ha la funzione equivalente a quella di ritorno del carrello, cioè di 
andare a capo nelle normali macchine da scrivere. Quando viene battuto il cursore va 
a capo nella prima posizione di sinistra dello schermo. 

Quando si è sull’ultima riga in basso, questo comando fa muovere tutto il testo 
verso l’alto e cioè la prima riga in alto esce dallo schermo mentre in basso si crea una 
nuova riga vuota alla cui sinistra si porta il cursore. 

Prima di RETURN Dopo RETURN 
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REVERSE ON/OFF. Questo comando permette di invertire la parte chiara con la 
parte scura di un carattere sullo schermo. Nello stato REVERSE un carattere appare 
come il negativo di una fotografia. Normalmente questo tasto è nella posizione 
spento “off’ e per attivarlo basta premerlo con SHIFT non abbassato. Il carattere 
che successivamente batterete apparirà con il campo invertito e così tutti gli altri di 
seguito sino a che premerete REVERSE OFF (questa volta con SHIFT abbassato) 
oppure darete un comando RETURN. 


HE*C 



RVS OFF 


Nota: RETURN fa terminare l'inversione del campo 


RUN/STOP. STOP è la funzione non shift di questo tasto. Il comando STOP 
ferma l’esecuzione di un programma eventualmente in corso e ristabilisce il collega¬ 
mento tra la tastiera e il calcolatore. Provate a vedere come il comando STOP 
funziona caricando questo piccolo programma, fatto da una sola riga, senza 
cercare di capire il suo significato. La parte ombreggiata è quella che dovete battere. 
Appena battete RETURN il programma entra in esecuzione e sul display appari¬ 
ranno in colonna i numeri da 1 verso 100. Premendo STOP vi accorgerete che la 
numerazione si blocca e il cursore ritorna sullo schermo. 


POR 1=1 TO 100 71 HEXT I 
1 


4 


e 


10 ■»- Premere il tasto STOP 

EREftk 

REftDV. 

& 


Se il calcolatore non è in fase di esecuzione il comando STOP non ferma 
ovviamente niente. 

RUN è la seconda parte di questo tasto e funziona con il comando SHIFT 
abbassato. Esso carica e pone in esecuzione un programma registrato su una cassetta 
o un dischetto. 
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Tasti di controllo del cursore 

Sono quattro tasti con denominazione inglese di: CLEAR SCREEN/HOME, 
CURSOR UP/DOWN, CURSOR LEFT/RIGHT e INSERT/DELETE. 

“Home” è la posizione di “riposo” del cursore ed è in alto a sinistra sullo schermo; il 
comando HOME deve essere dato con SHIFT non abbassato. 


Prima di HOME Dopo HOME 



Cursore Cursore in HOME 


CLEAR SCREEN (con SHIFT abbassato) svolge la stessa funzione sul cursore di 
HOME, ma in aggiunta cancella tutto lo schermo. 


Prima di CLEAR SCREEN Dopo CLEAR SCREEN 



Cursore Cursore in HOME, lo schermo è pulito 


CURSOR UP (con SHIFT abbassato) muove il cursore di una riga verso l’alto sul¬ 
la stessa verticale. 
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CURSOR UP 



Se il cursore si trova già sulla prima riga questo comando non ha effetto. Il 
cursore muovendosi non cambia o modifica il carattere su cui si sovrappone. 

CURSOR DOWN (con SHIFT non abbassato) muove il cursore sulla stessa 
colonna verso il basso. 


CURSOR DOWN 



i Se il cursore è sulla linea . 

inferiore, CURSOR DOWN fa [ 

1 scorrere tutte le linee verso ' 
l'alto 

Se il cursore si trova già sull’ultima riga questo comando fa slittare (“sroll”) tutto 
il testo in alto di una riga. 

CURSOR LEFT (SHIFT abbassato) muove il cursore verso sinistra sulla stessa 
riga orizzontale. 


CURSOR LEFT 
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Questo comando non ha effetto se il cursore è nella posizione “home”. 
CURSOR RIGHT (SHIFT non abbassato) muove invece il cursore verso destra 
sulla stessa riga. 


CURSOR RIGHT 



interiore, CURSOR RIGHT fa 
apparire una nuova linea in 
basso 

Sia CURSOR LEFT che CURSOR RIGHT hanno la proprietà di risalire o 
discendere rispettivamente da una riga all’altra quando arrivano ad una estremità 
della riga stessa. 

Se il cursore si trova all’ultima posizione in basso a destra il comando CURSOR 
RIGHT fa scorrere di una riga in alto tutto il testo (“scroll”) e porta il cursore 
all’inizio dell’ultima riga. 

I comandi CURSOR LEFT/RIGHT sono usati per scrivere sopra un testo ed 
equivalgono allo spostamento del carrello in una normale macchina da scrivere. 

II comando DELETE si ottiene con il tasto INSERT/DELETE e SHIFT non 
abbassato. Esso cancella il carattere immediatamente a sinistra del cursore e muove di 
un posto verso sinistra tutti i caratteri che sono a destra del cursore compreso. 

NON IS THE TIMES 
NOW IS- THE TIMfc 
NOVI IS THE TI M 

Il comando INSERT corrisponde al tasto INSERT/DELETE come il preceden¬ 
te, ma con SHIFT abbassato. Esso inserisce un nuovo spazio libero e in tale posizione 
potrà essere battuto un nuovo carattere. 

NOW IS THE TIME 
NOW IS* THE TIME 
NOW IS* THE TIME 

È opportuno precisare che i calcolatori CBM considerano un testo come una 
sequenza di righe lunghe ciascuna al massimo 80 caratteri. Non è possibile quindi 
cancellare oltre l’inizio di una riga ne inserire caratteri nuovi così che una riga 
diventi più lunga di 80 caratteri. 
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LE TASTIERE DEI CALCOLATORI CBM 8000 E CBM 2001/B 

I calcolatori CBM 8000 e CBM 2001/B hanno tastiere del tutto simili a quelle di 
una normale macchina da scrivere ed hanno inoltre una piccola tastiera solo numeri¬ 
ca sulla destra come si può vedere nella Figura 1-7. Tali tastiere possono essere 
usate in due modi diversi e produrre due distinti insiemi di caratteri. 

Chiameremo i due insiemi di caratteri: standard e alternativo. 

L'insieme di caratteri alternativo è sempre funzionante appena si accende il 
calcolatore. Esso produce, con SHIFT non abbassato, le lettere minuscole e con 
SHIFT abbassato le lettere maiuscole e tutti i caratteri superiori. 



Figura 1-7: La tastiera dei calcolatori CBM 8000 e 2001/B 


L’insieme standard, che si ottiene invece dando un comando speciale al calcolato¬ 
re, produce con SHIFT non abbassato le lettere maiuscole e con SHIFT abbassato i 
caratteri grafici. Per attivare quest’insieme di caratteri è necessario battere il coman¬ 
do: 


POKE 59468.12 (RETURN) 

che cambierà immediatamente l’insieme di caratteri. Per ritornare all’insieme alter¬ 
nativo date un diverso numero nel comando POKE: 

POKE 59468.14 [RETURN) 

Salvo un diverso avviso riteniamo che sia sempre possibile usare i caratteri standard. 
Come vedremo meglio in seguito, sappiate inoltre che ogni istruzione deve terminare 
con il comando RETURN. 

Descriviamo ora le tastiere e poniamo in risalto i vari gruppi di caratteri tratteg¬ 
giandoli sui disegni. 
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Tasti alfabetici 



I tasti alfabetici sono quelli ombreggiati nella illustrazione qui sopra. Nel modo 
alternativo essi producono: lettere minuscole (nel caso non SHIFT) e lettere 
maiuscole (nel caso SHIFT). Nel modo standard producono invece: lettere maiu¬ 
scole (nel caso non SHIFT) e simboli grafici (nel caso SHIFT). 


Tasti numerici 



I tasti numerici sono presenti due volte: sulla tastiera principale (ombreggiati) e 
sulla piccola tastiera di destra. I primi richiedono di non abbassare il tasto SHIFT 
mentre i secondi possono essere usati sia nel modo alternativo che standard. Per 
praticità il tasto del 5, della tastiera piccola, ha una piccola protuberanza. 


Tasti per simboli speciali 



Sono quelli ombreggiati nell’illustrazione qui sopra. I simboli riportati sulla 
metà superiore dei tasti si ottengono con SHIFT abbassato e con la tastiera in modo 
alternativo. Gli altri si ottengono come è usuale con SHIFT abbassato o non 
abbassato. 
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Tasti grafici 



I simboli grafici, pur essendo disponibili, non sono disegnati sulla tastiera dei 
calcolatori commerciali. Per ottenerli dovete dare il comando per il modo standard 
POKE 59468,12 e premere il tasto SHIFT. Nel disegno di sopra sono ombreggiati 
quei tasti che corrispondono appunto ai simboli grafici nei calcolatori commerciali. 


Tasti per funzioni 



I calcolatori CBM 8000 e 2001/B hanno tre tasti per funzioni oltre a quelli già 
descritti nel paragrafo “Gruppi di tasti delle tastiere CBM”: TAB, ESCAPE(ESC) 
c REPEAT. 

TAB: è il tasto per assegnare e togliere le posizioni di tabulazione ed inoltre per 
saltare alla colonna di tabulazione successiva. 

ESC: è presente solo nella serie CBM 8000. Può essere usato in due casi: per 
annullare gli effetti dei comandi di inserimento, di inversione dei caratteri o di altre 
condizioni di ingresso dei testi; oppure è impiegato con altri tasti per produrre 
funzioni speciali di elaborazione dei testi (come vedremo nel capitolo 5). 

REPEAT: permette la ripetizione di ogni altro tasto con cui è premuto contempo¬ 
raneamente. 

Tasti di controllo del cursore 
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Questi gruppi sono già stati descritti nel paragrafo di pagina 13. 


la TASTIERA DEL CALCOLATORE PET 2001/N 

Il calcolatore PET 2001/N ha una tastiera di dimensioni normali, ma con la 
caratteristica di avere i simboli grafici disegnati sulla superficie anteriore dei tasti 
(vedi Figura 1-8). Anche questa tastiera presenta i due modi di lavoro: standard e 
alternativo. Il modo standard si ottiene subito all’accensione del calcolatore. Per 
ottenere il modo alternativo dovete dare il comando: 

POKE 59468.14 

Per ritornare al modo standard dovete inserire invece: 


POKE 59468.12 



Figura 1-8: La tastiera del calcolatore PET 2001/N 


Tasti alfabetici 


IDI 

ZIE 

00 


300 

300 


È3I53H 

(insti 

(del] 

irs?r 

Il Bus 

l®( 

w) ,r E 

)® 

)Ex 

[yj[u 

lZ®J > 

1* l<i 

> 

bwwilzj 

If SHIFT 

li ■•OCX 

m 

Eh 

l(F 

il» 

®!S 

DEE 

s",o" | BCTU,,N 


hi 

5 Ih 

a 

SHIFT | J 

yixji 

CJI 

-VJl 

gfwj[ 

3IQ 01 

O SHIFT 


ia 

2 )|(T 

rz 

i 


s 

hi 

3R 

3 


I tasti alfabetici, ombreggiati nel disegno, producono: lettere maiuscole nel modo 
standard e SHIFT non abbassato; nel modo alternativo producono invece sia le 
lettere maiuscole che le minuscole a seconda della posizione di SHIFT. 
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Tasti numerici 



I tasti numerici sono presenti solo sulla tastiera piccola a destra. I numeri sono 
prodotti solo con il tasto SHIFT non abbassato. 


Tasti per simboli speciali 



Questi tasti sono in parte presenti sulla tastiera principale e in parte su quella 
numerica. Sono prodotti solo con SHIFT non abbassato. 


Tasti grafici 



Come si è già detto in precedenza i simboli grafici sono disegnati anteriormente a 
tutti i tasti non di funzione o di movimento del cursore. Sono generati in modo 
standard e SHIFT abbassato. 
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Tasti per funzioni 



II calcolatore CBM 2001 ha la possibilità di fornire direttamente il valore di “P 
greco” a differenza dei calcolatori commerciali. Tale funzione è prodotta dal tasto t 
con SHIFT abbassato. 

Ricordiamo che il valore di “P greco” (n) è pari al rapporto tra una circonferenza 
ed il suo diametro ed è approssimativamente eguale a 3,14159265. Provate a far 
apparire sulla schermo questo valore battendo la riga ombreggiata e poi premendo 
RETURN: 

?1T 

3.14139263 

REfiDV. 

« 

Se itè posto tra virgolette non appare il numero 3.14159265 ma una stringa di ca¬ 
ratteri. Infatti provate a battere: 


?"ir" 

tr 

REFIDV. 

& 


e al premere RETURN vedrete appunto apparire n. 


Tasti di controllo del cursore 



Questi tasti operano come altri già descritti precedentemente. 
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TASTIERA DEL CALCOLATORE PET 2001/8K 

Il calcolatore PET 2001 ha una tastiera compatta, di piccole dimensioni e 
colorata. Essa può operare sia in modo standard che alternativo come il calcolatore 
PET 2001/N. Il modo standard lo si ottine con l’accensione del calcolatore, mentre 
per passare all’altro modo bisogna battere il comando: 

POKE 59468.14 


Per ritornare al modo standard: 


POKE 59468,12 

In Figura 1-9 è illustrata la tastiera del calcolatore PET 2001. 



Figura 1-9: La tastiera del calcolatore PET 2001/8K 


Tasti alfabetici 
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Le lettere sono generate dai tasti color argento. Nel caso di tastiera in modo 
standard e SHIFT non premuto si producono le lettere maiuscole; mentre nel modo 
alternativo si possono avere sia le lettere maiuscole che minuscole. 
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Tasti numerici 



I tasti numerici sono color argento e producono le cifre con SHIFT non abbassa¬ 
to. 

Tasti per simboli speciali 


B 
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B 
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■ 

mi 
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I tasti per simboli speciali, ombreggiati nella illustrazione qui sopra, sono in 
realtà azzurri. Essi sono raggruppati in alto e in basso, della tastiera principale, e a 
destra e in basso della tastiera piccola. Il tasto SHIFT non deve mai essere premuto. 


Tasti grafici 



I simboli grafici sono posizionati su tutti i tasti non di funzione o di movimento 
del cursore. Essi sono ottenuti con tastiera in modo standard e tasto SHIFT premuto. 
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Tasti per funzioni 
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Questi tasti possono essere rossi o blu. Il calcolatore PET non ha il tasto 
SHIFT/LOCK che è normalmente posto sopra il tasto SHIFT di sinistra nelle altre 
tastiere. 

Come il PET 2001/N ha il tasto per il valore “P greco” (n) posto in corrisponden¬ 
za del tasto t. 


Tasti di controllo del cursore 



I quattro tasti di controllo del cursore sono di colore rosso e blu e si trovano in 
alto sulla tastiera piccola. 

LE UNITA’ A CASSETTE MAGNETICHE 

Se avete un calcolatore PET esso comprende già una unità a cassette magnetiche. 
Se possedete invece un altro modello CBM dovete fare un collegamento esterno. In 
ambedue i casi i registratori a cassette sono gli stessi e permettono egualmente di 
memorizzare programmi o archivi di dati (in inglese “file”). 

Un calcolatore può collegarsi a uno o più registratori, ma solo uno sarà privile¬ 
giato e sarà visto come “primario” o “console”. Nel caso del PET il registratore 
console è quello assemblato al suo interno (vedi Figura 1-10), mentre per gli altri 
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Figura 1-10: Unità a cassette interna del PET 2001 


calcolatori viene riconosciuto come console il registratore connesso alla porta 
interfaccia Jl. 


Registratori a cassette esterni 

Una unità a cassette esterna è illustrata in Figura 1-11. Ad uno stesso calcolatore si 
possono collegare contemporaneamente due registratori. Nel caso del calcolatore 



Figura 1-11: Unità a cassette esterna 
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PET. che contiene già un registratore, la seconda unità sarà collegata all’interfaccia 
J3 come illustrato nelle Figura 1-5 e 1-13a. Per tutti gli altri calcolatori il primo 
registratore sarà collegato all’interfaccia J3. Il secondo sarà invece collegato ad un 
connettore interno, per i modelli 2001 (vedi Figura 1-13b), oppure come indicato 
nella Figura 1-13c per i modelli CBM 8000. 

Eventuali altre periferiche, come stampanti o unità a disco saranno collegate 
all’interfaccia IEEE 488 senza interferire con le unità a cassette. 

COLLEGAMENTO DELLE UNITA’ A CASSETTE 

Quando si collega un registratore esterno al calcolatore bisogna prestare molta 
attenzione al verso dei connettori. Se si tentasse di forzare la connessione in modo 
errato si danneggerebbero i connettori stessi in maniera irreparabile. 

Il connettore maschio, posto sul calcolatore, ha infatti una fessura asimmetrica: 

Fessura 

fi¥iiìjiiì 

a cui corrisponde un divisore nel connettore femmina posto all’estremità del cavo 
del registratore: 

(è=>c3^ 

V_Divisore 

Il divisore deve corrispondere quindi alla fessura così che il verso di inserimento 
sia univoco. 

La procedura per collegare un registratore all’interfaccia esterna (come il connet¬ 
tore J3) è la seguente: 

1. Spegnere il calcolatore. 

2. Tenere il connettore, posto all’estremità del cavo in modo che il filo “blu” sia 
sulla destra. 

3. Serrare delicatamente il connettore come indicato nella Figura 1-12. Ma atten¬ 
zione, non premere assolutamente con forza. 

4. Assicurarsi che la connessione tenga. 

5. Riaccendere il calcolatore. 

Nel caso si debba collegare invece il registratore all’interfaccia posta all’interno 
del calcolatore, la procedura è la seguente: 

1. Spegnere il calcolatore e togliere tutti i cavi. 

2. Svitare le due viti che trattengono il coperchio poste sul fondo del calcolatore. 

3. Alzare il coperchio facendo attenzione però di non tirare i cavetti interni. 

4. Il vostro calcolatore ha una astina per tenere sollevato il coperchio, sganciatela 
dal suo supporto e Fissatela opportunamente al foro di una vite sul lato sinistro. 
Questo vi permetterà di avere ambedue le mani libere. 
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Figura 1-12: Collegamento della seconda unità a cassette esterna 


5. Individuare il punto di interfacciamento sul lato sinistro della piastra a circuiti 
stampati come indicato in Figura 1 -13b. 

6. Tenere in mano il connettore, posto all’estremità del cavo del registratore, in 
modo che il filo “blu” sia sulla destra. 

7. Serrare delicatemente il connettore come indicato in Figura l-13b, ma non 
premere assolutamente con forza. 

8. Assicurarsi che la connessione tenga. 

9. Abbassare il coperchio e riavvitare le due viti. 

10. Riattaccare i cavi e riaccendere il calcolatore. 



Cassetta 1: PET 2001/N. 

CBM 2001, CBM 8000 
Cassetta 2PET 2001/8K 


b. Cassetta 2 


PET 2001/N. 
CBM 2001 


c. Cassetta 2: CBM 8000 


Figura 1-13: Collegamento dell'unità a cassette esterna alla piastra a circuiti stampati 
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Prova di funzionamento 


A questo punto è necessario verificare il funzionamento meccanico delle unità a 
cassette e consigliamo quindi di seguire la seguente procedura di controllo sia per i 
tasti che per le parti meccaniche interne. 

1. Accendere il calcolatore e assicurarsi che nessun tasto del registratore sia 
premuto ed il motorino di avanzamento del nastro sia fermo. 

2. Aprire lo sportellino premendo il tasto STOP/EJECT (oppure manualmente 
per i vecchi modelli). Guardando all’interno del registratore premere il tasto 
PLAY ed osservare che le testine magnetiche si muovano. Contemporaneamen¬ 
te il “pinch roller” si deve spostare e il “capstan” porre in rotazione in verso 
antiorario. L’interno del registratore deve apparire come in Figura 1-14. 

3. Premere nuovamente il tasto STOP/EJECT. Le testine magnetiche dovranno 
retrarsi e i perni di rotazione fermarsi. 

4. Premere il tasto di avanzamento veloce FFWD. Le testine dovranno rimanere 
ferme mentre il perno di destra dovrà ruotare molto velocemente in verso 
antiorario. 

5. Premere ancora il tasto STOP/EJECT. Si interrompe l’avanzamento veloce del 
punto 4 e il perno di destra si ferma. 

6. Premere il tasto di riavvolgimento REW. Mentre le testine rimarranno ancora 
ferme, ruoterà invece velocemente il perno di sinistra in verso orario. 

7. Per fermare il riavvolgimento premere il tasto STOP/EJECT. 

8. Premere delicatamente il tasto di registrazione REC. Esso, se premuto da solo, 
non dovrà muoversi, ma funzionerà solo se premuto contemporaneamente al 
tasto PLAY e con cassetta non protetta inserita. 

Se tutto funziona correttamente è possibile allora operare con il registratore. Se 
qualcosa non funziona verificate ancora che il calcolatore sia acceso, che per errore 
non si siano premuti due tasti contemporaneamente (per esempio non sia abbassato 
il tasto STOP) e forse anche che i tasti non siano stati premuti a sufficienza fino a 
sentire il “click” di scatto. Se il registratore non dovesse egualmente funzionare 
allora è consigliabile interpellare il Rappresentante Commodore. 


Pulitura e demagnetizzazione delle testine magnetiche 

Le testine magnetiche, così come sono riportate nel disegno di Figura 1-15, si 
possono vedere nell’interno del registratore premendo il tasto PLAY con il calcola¬ 
tore spento. 

Durante il normale funzionamento il nastro magnetico scorre sulle testine per 
cui, con il tempo, vi deposita sopra il suo stesso rivestimento di ossido. Per 
assicurare un corretto funzionamento del registratore è necessario quindi rimuove¬ 
re periodicamente tale deposito. La pulitura sia delle due testine come anche del 
capstan e del pinch roller potrà esser fatta con un fiocco di cotone bagnato in etanolo 
denaturato. Prima di richiudere lasciare asciugare bene. 
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Perno di alimentazione 
Zona di lettura/scrittura 


Perno di trascinamento 



Figura 1-14: Componenti meccanici di una unità a cassette 



Le testine necessitano di essere demagnetizzate periodicamente. Con l’uso prolun¬ 
gato le testine acquisiscono un magnetismo residuo che può influenzare notevol¬ 
mente la fedeltà di registrazione e causare errori di lettura/scrittura. Per demagne¬ 
tizzare le testine esistono in commercio dei dispositivi molto economici che si 
possono acquistare presso i negozi di fonoriproduzione. 

Per demagnetizzare quindi le testine dovete spegnere il calcolatore, premere il 
tasto PLAY e procedere con molta attenzione come segue. Prima di accendere il 
demagnetizzatore dovete tenerlo almeno ad un metro di distanza dal registratore; 
accenderlo e avvicinarlo lentamente alle testine; toccare lentamente le testine e ogni 
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Figura 1-16: Un esempio di demagnetizzatore 


superficie metallica che sia nelle vicinanze; allontanarlo quindi sempre molto 
lentamente e spegnerlo solo quando è tornato lontano dal registratore. 

A ttenzione: non avvicinare mai il demagnetizzatore a cassette già registrate! Non 
dimenticate infatti che il demagnetizzatore non è altro che una forte testina di 
cancellazione. 

Più spesso effettuate registrazioni, più spesso dovrete pulire e demagnetizzare le 
testine. Vi consigliamo di farlo almeno una volta al mese o più sovente se riscontra¬ 
te problemi di degradazione dei nastri. 

Tasti di comando dell’unità a cassette 

Questi tasti di comando sono posti sulla parte anteriore del registratore. 

REGISTRAZIONE (REC). Il tasto REGISTRAZIONE permette il trasferimen¬ 
to di informazioni dalla memoria centrale alla cassetta (operazione di scrittura). 

RIAVVOLGIMENTO (REW). È il tasto per il riavvolgimento veloce del nastro. 

Il riavvolgimento del nastro si dovrà fare molto spesso sia prima di togliere una 
cassetta dal registratore, sia ogni qualvolta si debbano cercare informazioni su un 
tratto precedente di nastro. 

AVANZAMENTO VELOCE (FFWD). È il tasto per l’avanzamento veloce del 
nastro. Quando il registratore svolge invece funzioni di lettura/scrittura comanda¬ 
te dal calcolatore, esso avanza alla normale velocità di registrazione che è molto più 
lenta. 

RIPRODUZIONE “PLAY”. Questo tasto permette l’operazione di “lettura” 
delle informazioni dal nastro verso il calcolatore. Se premuto contemporaneamen¬ 
te al tasto di REGISTRAZIONE permette l’operazione di “scrittura”. 

STOP/EJECT. Il tasto STOP disabilita ogni altro tasto. Se un tasto non dovesse 
funzionare provate a premere STOP e poi nuovamente il tasto di prima. 
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EJECT. È il comando per l’apertura dello sportello; non era presente nelle prime 
versioni di registratori PET. 

Inserimento e disinserimento delle cassette 

Per inserire una cassetta si proceda come segue (vedere anche la Figura 1-17): 

1. Premere EJECT per aprire lo sportello. 

2. Tenendo in mano la cassetta come indicato in Figura inserirla nelle guide poste 
sotto lo sportello. 

3. Chiudere lo sportello. La cassetta si collocherà così nella giusta posizione 
davanti alle testine. 

Per estrarre la cassetta basterà sollevare lo sportello o premere il tasto EJECT, e 
toglierla dalle guide. 


a. Drive vuoti e con il coperchio aperto 


b. Modo corretto di tenere in mano 
una cassetta prima di inserirla 




c. Drive aperto con la cassetta inserita 


d. Drive chiuso con la cassetta inserita 


Figura 1-17: Come inserire una cassetta 
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CASSETTE MAGNETICHE 


Le cassette megnetiche che si utilizzano nei registratori Commodore sono come 
quella qui sotto riportata: 



Esse possono essere acquistate sia vergini, sia contenenti programmi particolari 
preregistrati. 

Uso delle cassette magnetiche 

Qui di seguito desideriamo darvi alcuni consigli per un corretto uso delle cassette. 

Quando acquistate una cassetta nuova (sia vergine che preregistrata) bilanciate 
la tensione del suo nastrino facendola avvolgere prima tutta in avanti (FFWD) poi 
tutta in dietro sino all’inizio (REW). Ciò è una precauzione per evitare possibili 
errori di lettura detti anche errori di “LOAD”. 

Non acquistate mai cassette con tempi di registrazione più lunghi di 15 o 30 
minuti per evitare nastrini troppo sottili e tempi di ricerca troppo lunghi. Scegliete 
cassette di alta qualità, basso rumore, alta risposta e con rivestimento tipo ossido di 
ferro; tali cassette sono spesso denominate come “Computer Grade”. Conservatele 
poi in un luogo fresco, asciutto e lontano da magneti e apparecchiature elettriche. 

Fate molta attenzione a non toccare mai il rivestimento di ossido del nastrino! 



Figura 1-18: Fori di protezione contro la scrittura 
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Protezione da scrittura delle cassette 

Se abbiamo una cassetta con delle registrazioni importanti e desideriamo proteg¬ 
gerla, così da poter fare delle operazioni di sola lettura e mai di scrittura, possiamo 
interdire la scrittura aprendo i due fori posti sul suo fondo (vedi Figura 1-18). I fori 
sono due perchè corrispondono alle due tracce. Se desiderate quindi proteggere una 
sola traccia della vostra cassetta strappate la chiusura del foro corrispondente. 

Se in futuro vorrete egualmente scrivere su una cassetta protetta basterà coprire 
con del normale nastro adesivo il foro corrispondente. 

UNITA’ A DISCO CBM 

Nella linea di prodotti Commodore sono presenti anche unità periferiche a disco del 
tipo a dischetto flessibile “floppy”. I modelli sono il CBM 8050 e CBM 2040 ambedue 
a doppio “drive” (drive è il supporto meccanico per l’avanzamento e/o rotazione di 
un nastro o un disco). Il floppy è un dischetto flessibile le cui dimensioni ricordano 
un disco musicale a 45 giri. 

Le unità CBM 8050 e 2040 sono presentate nelle Figura 1-19 e 1-20. Il modello 
CBM 2040 memorizza circa 171.500 byte per dischetto con la tecnica detta a 
“singola densità”. 

Il modello CBM 8050 è invece a “doppia densità” e memorizza circa 522.000 byte 
su ogni dischetto. Le specifiche delle due unità a disco sono riportate nelle Tabelle 1-2 
e 1-3. 


Tabella 1-2: Specifiche dell'unità a disco CBM 8050 


Fisiche 


Elettriche 


Dimensioni: 


Alimentazione: 


altezza 

6.5" 

Tensione 

vedere retro macchina 

larghezza 

15" 

Frequenza 

vedere retro macchina 

profondità 

14.35" 

Potenza 

50 Watt 

Circuiti Integrati 


Drive: 


Controller: 


Shugart 

SA 390 (2) 

6502 

Microprocessore 

Dischetti 

Mini 5, 1/4" standard 

6530 

I/O, RAM. ROM 



6522 

I/O. Timer. 





Memoria dischetti: 


Interfacce: 


Capacità totale 

533.248 byte 

6502 

Microprocessore 

Sequenziale 

521.208 byte 



Random 

da 464.312 a 517.398 

6532 (2) 

I/O, RAM, Timer 


byte a seconda del file 

6564 (2) 

ROM 

Settori per Traccia 

da 23 a 29 



Byte per Settore 

256 

Altri: 


Tracce 

77 

6114 (8) 

4 x1K RAM 

Blocchi 

2083 
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Tabella 1-3: Specifiche dell'unità a disco CBM 2040 


Fisiche 


Elettriche 


Dimensioni: 


Alimentazione: 


altezza 

6.5" 

Tensione 

vedere retro macchina 

larghezza 

15" 

Frequenza 

vedere retro macchina 

profondità 

14.35" 

Potenza 

50 Watt 

Circuiti Integrati 


Drive: 


Controller: 


Shugart 

SA 390 (2) 

6504 

Microprocessore 

Dischetti 

Mini 5. 1/4" standard 

6530 

I/O, RAM, ROM 



6522 

I/O, Timer 



Interfacce: 


Memoria dischetti: 


6502 

Microprocessore 

Capacità totale 

176 640 byte 

6532 (2) 

I/O. RAM, Timer 

Sequenziale 

170.180 byte 

6564 (2) 

ROM 

Random 

170.850 byte 



Settori per Traccia 

da 17 a 21 



Byte per Settore 

256 

Altri: 


T racce 

35 

6114 (8) 

4 x 1K RAM 

Blocchi 

690 


Collegamento delle unità a disco al calcolatore CBM 

Per collegare una unità a disco al calcolatore CBM, si proceda come segue: 

1. Disinserire il cavo di alimentazione del calcolatore. 

2. Mediante un cavo di connessione con connettori tipo IEEE/CBM, inserire il 
connettore IEEE nella presa, posta sul retro in alto a sinistra, dell’unità a disco 
(vedere Figura 1-21). Bloccare quindi il connettore girando le sue due viti in 



Figura 1-19: Unità a doppio disco floppy CBM 8050 
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Figura 1-20: Unità a doppio disco floppy CBM 2040 


3. Inserire delicatamente l’altro connettore nel punto di connessione J1 (vedi 
Figura 1-5) sul retro del calcolatore CBM. Fare attenzione che la scritta “Com¬ 
modore” su questo connettore appaia sul lato superiore. Il collegamento nel suo 
insieme deve apparire come in Figura 1-21. 
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4. Inserire il cavo di alimentazione del disco in una presa di corrente facendo molta 
attenzione che la tensione sia quella prescritta. 

5. Inserire nuovamente il cavo di alimentazione del calcolatore. 

Eseguire quindi la seguente prova di accensione. 

Prova di accensione 

1. Accendere il calcolatore ed assicurarsi che funzioni correttamente. 

2. Solo per il drive modello 2040: aprire i due sportellini tirando delicatamente con 
l’indice. Per il modello 8050 non è necessario. 

3. Assicurarsi che i drive non contengano dischetti. 

4. Accendere il drive mediante l’interruttore posto sul retro a sinistra. 

Modello 8050: i tre indicatori luminosi verdi, posti sul frontale, devono lampeg¬ 
giare due volte e poi quello centrale deve rimanere acceso, mentre gli altri due 
devono spegnersi. 


Modello 2040: i tre indicatori rossi devono lampeggiare e poi spegnersi. Attenzio¬ 
ne: alcuni drive fanno un leggere ronzio durante l’accensione. 

Se alcune luci rimangono accese spegnete e riaccendete dopo qualche minuto. Se 
qualche cosa continuasse a rimanere irregolare chiamate il Rappresentante Com¬ 
modore. 

Indicatori luminosi 

Ambedue i modelli di unità a disco hanno tre indicatori luminosi posti sul frontale 

(vedi Figura 1-22). Essi non sono a lampadina, ma a LED (Light Emitting Diode). 
Due sono posti sul drive 0 e drive 1 e indicano se accesi che l’unità è in funzionamen¬ 
to. Il terzo è un rivelatore di errore. 

Il modello 8050 ha tre LED verdi. Come già detto quelli sui drive, se accesi, 
indicano lo stato di funzionamento; il terzo indica l’accensione dell’unità. Quest’ul¬ 
timo rivela anche la presenza di errori cambiando da verde in rosso e rimanendo acceso 
sino a che non si corregge l’errore. 

Il modello 2040 ha tre LED rossi, due per indicare lo stato di funzionamento dei 
drive, mentre il terzo è solo indicatore di errore. 

Inserimento ed estrazione dei dischetti 

Ogni dischetto vero e proprio è contenuto in due buste. La prima è una busta di 
carta che ha lo scopo di conservare e proteggere il dischetto quando non è inserito 
nel drive. La seconda invece è una vera e propria cartuccia che non bisogna mai tentare 
di aprire (vedi Figura 1-23). Il dischetto deve essere inserito nel drive con tutta 
questa seconda busta: essa ha lo scopo sia di proteggere il dischetto che di mante¬ 
nerlo pulito. 
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Rammentate inoltre che i calcolatori CBM impiegano dischetti, il cui diametro è di 
5-1/4 pollici e hanno la ripartizione dei settori fatta a software. Se avete il dubbio che 
un vostro dischetto abbia o meno i settori ripartiti a software fate la seguente prova 
(vedi Figura 1-24): 

1. Prendete in mano il dischetto, ovviamente con la sua cartuccia, come indicato 
nella Figura 1-24 al punto 1. 

2. Inserite due dita nel foro centrale. 



Figura 1-23: Dischetto Floppy. 
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Figura 1-24: Come stabilire il tipo di settorializzazione 


3. Individuate il piccolo foro nella cartuccia vicino al foro centrale. 

4. Ruotate con le due dita il dischetto fino a che troverete un piccolo foro in 
corrispondenza a quello della cartuccia. 

Se trovate un solo foro i settori sono ripartiti a software diversamente, cioè con più 
fori, la ripartizione è ad hardware e il dischetto non può essere utilizzato con il vostro 
calcolatore. 

Inserimento nel modello 8050 

1. Non toccate mai la superficie magnetica del dischetto potreste danneggiarla irrepa¬ 
rabilmente. Tenete quindi il dischetto per la sua cartuccia e inseritelo nel drive 



Figura 1-25: Inserimento del dischetto nell'unità CBM 8050 
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Figura 1-26: Estrazione del dischetto dall'unità CBM 8050 


nel verso indicato in Figura 1-23. Fate attenzione che la tacca di protezione da 
scrittura sia sulla sinistra. 

2. Come indicato in Figura 1-25 spingete delicatamente il dischetto fino a che non 
sentite un “click”. Se non riuscite subito riprovate, ma non forzate mai potreste 
danneggiare sia il dischetto che il drive. 

3. Chiudete quindi il portellino spingendo la sua maniglia verso il basso fino allo 
scatto. 

Estrazione dal modello 8050 

Non estraete mai un dischetto dal suo drive se il corrispondente indicatore LED è 

acceso. 

1. La maniglia del portello del drive dovrebbe già essere in posizione abbassata. 
Con due dita fate una leggera pressione sulla maniglia verso l’alto: il dischetto 
sarà quindi automaticamente sospinto in fuori (vedi Figura 1-26). 

2. Estraete quindi totalmente il dischetto cercando di non toccare la superfìcie 
magnetica nè di piegarlo. 

3. Inseritelo subito nella sua busta di protezione. 

Inserimento nel modello 2040 

1. Tenete il dischetto per la. sua cartuccia cercando assolutamente di non toccare la 
superfìcie magnetica, con la sua faccia principale verso l’alto e la tacca di 
protezione da scrittura sulla sinistra. 

2. Tirate delicatamente il portellino con il dito indice sino a che esso non si apra 
(Figura 1-27). 

3. Con molta delicatezza spingete il dischetto nel drive fino a sentire uno scatto. Se 
non entra dolcemente estraetelo subito e riprovate nuovamente, ma senza 
forzare. 

4. Chiudete il portellino spingendolo verso il basso. 
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Figura 1-27: Apertura del portello del drive (CBM 2040) 


Estrazione dal modello 2040 

Non togliete mai un dischetto se il corrispondente indicatore di LED è acceso. 

1. Aprite il portellino tirandolo con il dito indice come indicato nella Figura 1-27. 

2. Estraete quindi il dischetto e mettetelo subito nella sua busta. 

3. Chiudete il portellino premendolo verso il basso fino allo scatto. 

DISCHETTI “FLOPPY” 

Conservazione dei dischetti 

I dischetti devono essere trattati con molta cura perchè se danneggiati non 
possono più essere letti e quindi l’informazione che memorizzavano andrà comple¬ 
tamente persa. 

1. Appena estraete un dischetto dal drive ponetelo subito nella sua busta. 

2. Non tentate mai di estrarlo dalla sua cartuccia di plastica. 

3. Non scrivete mai sull’etichetta del dischetto salvo che con un pennarello. È 
preferibile scrivere sulle etichette separatamente e poi incollarle sopra. 

4. Non toccate mai la superficie magnetica del dischetto ne tanto meno tentate di 
pulirla. 
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5 Evitate di fumare vicino alle unità a disco. Residui di cenere o tabacco possono 
graffiare il dischetto. 

6. Teneteli assolutamente lontano da campi magnetici. 

7 . Non esponeteli alla luce o al calore intensi. 

Protezione da scrittura 

L'operazione di scrittura su un dischetto può essere inibita coprendo fa apposita 
tacca di “protezione da scrittura” (vedi Figura 1 -23). Solo se questa tacca è aperta si 
può scrivere sul dischetto; se invece è coperta non si può scrivere. Per coprirla si può 
usare del normale nastro adesivo, ma è possibile acquistarne uno più adatto allo 

scopo. 



Figura 1-28: Stampante modello CBM 2022 
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Figura 1-29: Stampante modello CBM 2023 
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LE STAMPANTI CBM 

La CBM offre due modelli di stampanti che si differenziano per il sistema di 
trascinamento della carta: il modello CBM 2022 “Tractor Feed”, che impiega la 
carta a modulo continuo con avanzamento a “sprocket” e il modello CBM 2023 
“Matrix or Friction Feed” che impiega invece carta comune con avanzamento a 
frizione. I due modelli sono presentati nelle Figure 1-28 e 1-29. 

Per quanto concerne le altre caratteristiche le due stampanti sono eguali: forma¬ 
no i caratteri mediante una matrice di 7x6 punti (in maniera analoga a quanto 
avviene nei display video); stampano 80 caratteri per linea alla velocità di una linea 
al secondo (60 linee al minuto); impiegano nastro per macchina da scrivere nero e 
rosso con occhielli per invertirne la direzione. Nella Tavola 1-4 sono riportate tutte le 
specifiche delle stampanti. 


Collegamento tra stampante e calcolatore CBM 

Il collegamento di una stampante al calcolatore si effettua nel modo seguente: 

1. Staccate il calcolatore dalla presa di corrente. 

2. Nel caso di collegamento diretto della stampante al calcolatore seguite i seguenti 
punti: 

a. Prendete un cavo di connessione CBM/IEEE e applicate il connettore IEEE 
alla presa posta sul retro a destra della stampante (come indicato nella 
Figura 1-30). Girate le due viti in verso orario per bloccare il connettore 
IEEE. 

b. Applicate l’altro connettore al punto J1 del calcolatore prestando attenzione 
che la scritta “Commodore” appaia verso l’alto. 

3. Nel caso di collegamento multiplo di più periferiche alla stessa interfaccia J1 del 
calcolatore, che ricordiamo è unica, è necessario collegare in cascata il calcolato¬ 
re, l’unità a disco e la stampante: 

a. Collegate prima l’unità a disco al calcolatore come già indicato nella Figura 

1 - 21 . 

b. Mediante un cavo di connessione tipo IEEE/IEEE collegate la stampante 
all’unità a disco ricordandovi sempre di bloccare i connettori mediante le 
loro viti. Sul retro dell’unità a disco si avranno così sovrapposti i connettori 
dei due cavi provenienti dal calcolatore e dalla stampante. Questa tecnica di 
collegamento viene detta a “festoni”; i dati verso la stampante passano 
attraverso i due cavi. 

4. Ricollegate il calcolatore ad una presa di corrente. 

5. Collegate la stampante ad una presa di corrente. 

6. Accendete il calcolatore ed assicuratevi che funzioni correttamente. 

7. Accendete la stampante (il suo interruttore è posto su un lato). La testina di 
scrittura dovrà subito portarsi a destra e poi a sinistra. 
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Tabella 1-4: Specifiche delle stampanti CBM 2022 e 2023 


Specifiche della «lampante modello 2022 

Metodo di stampa 

A impatto con matrice a punti seriale 

Velocità 

70 linee/min o 150 caratteri/sec. (massimo) 

Direzione di stampa 

Unidirezionale 

Numero di colonne 

80 

Ampiezza caratteri 

6x7 

Dimensione caratteri 

Altezza 0,11", larghezza 0.10" 

Spazio tra le colonne 

1/10" (10 caratteri per pollice) 

Spazio tra le linee 

Programmabile 

Copie 

3 compreso l'originale 

Nastro 

Di nylon con occhielli 

Durata del nastro 

2 milioni di caratteri 

Larghezza carta 

10" (carta per calcolatori pieghevole) 

Formato fori trascinamento 8,5 + 0,5 x 2 (margini sprocket) 


Distanza tra i fori: 0,5" longitudinale 

9,0" laterale 

5/32" diametro 

Specifiche della stampante modello 2023 

Eguali a quelle del modello 2022 salvo: 

Spazio fra le linee 

1 /6" (6 linee per pollice) 

Formato fori trascinamento Non applicabile l'avanzamento con sprocket 




Figura 1-30: Collegamento tra stampante e calcolatore 
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Figura 1-31: Collegamento multiplo tra stampante, unità a disco e calcolatore 


Se la testina non dovesse muoversi provate a spegnere, riaccendere e controllare 
ancora le connessioni; se il difetto permane allora è preferibile chiamare il Rappre¬ 
sentante Commodore. 

Come installare il nastro 

1. Sollevate il coperchio della stampante. 

2. Tenete nella mano sinistra il rocchetto su cui è avvolto tutto il nastro e nella 
destra quello vuoto ove appare l’occhiello di inversione del nastro (vedi Figura 
1-32). 

3. Fissate il rocchetto di destra sul suo supporto (posizione 1 nella Figura 1-33). 
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4 Svolgete un pò di nastro e fategli seguire il percorso 2, 3 e 4 assicurandovi che 
l'occhiello sia tra i punti 2 e 3. Continuate a svolgere il nastro attraverso i punti 5 
e 6 facendo sempre molta attenzione di non attorcigliare il nastro. 

5 . Fate passare il nastro dietro la testina di scrittura e poi attraverso i punti 7, 8,9, 
10 e 11: attenzione sempre a non attorcigliarlo! 

6. Riavvolgete il nastro così che sia un pò in tensione e bloccate il rocchetto di 
sinistra sul suo supporto (posizione 12). 

7. Chiudete infine il coperchio. 


Come caricare la carta 

Ogni stampante richiede un metodo diverso a seconda del tipo di avanzamento 
meccanico della carta. 


Caricamento nella stampante CBM 2022 

Questa stampante impiega carta standard del tipo a modulo continuo con fori di 
avanzamento sui lati. La massima larghezza della carta può essere di 10 pollici (vedi 
Figura 1-34). 

Per caricare la carta procedete come segue: 

1. Con ambedue le mani tirate delicatamente in avanti il dispositivo di trascina¬ 
mento a trattori. 

2. Spingete delicatamente la carta dal retro verso l’avanti come indicato in Figura 
1-35. 

3. Quando la carta è davanti spingete in dietro tutto il dispositivo di trascinamento. 

4. Aprite i due ferma-carta davanti ai trattori. 

5. Fate combaciare i fori della carta con i denti dei trattori. Se non vi è possibile, 
fate la seguente regolazione: 

a. Sollevate la leva vicino ai trattori verso di voi. 

b. Aggiustate la posizione dei trattori in modo che i denti di avanzamento 
collimino con i fori della carta. 

c. Riportate la leva nella posizione di blocco. 

6. Quando la carta è ben sistemata davanti ai trattori chiudete i due ferma-carta. 

7. Accendete la stampante (l’interruttore è posto in basso a destra sul lato destro). 

8. La carta può essere fatta avanzare in due modi: 

a. Mediante l’interruttore posto in basso a sinistra sul fronte della stampante. 

b. Oppure manualmente mediante le due manopole poste ai lati del dispositivo 
di avanzamento della carta. 


45 




Figura 1-32: Applicazione del nastro 



Figura 1-33: Percorso del nastro nella stampante 
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Figura 1-34: Stampante modello CBM 2022 


Testina si scrittura 


* 



Trattore 


Ingresso della carta 


Figura 1-35: Percorso della carta nella stampante CBM 2022 


Caricamento nella stampante 2023 

Questa stampante può scrivere sia su fogli singoli che su carta ripiegata tipo 
modulo continuo, ma senza fori. Anche in questo caso la massima larghezza della 
carta è di 10 pollici. 

Per caricare la carta procedete come segue: 

1. Accendete la stampante (l’interruttore è sul retro a destra). 

2. Inserite l’inizio della carta (come indicato in Figura 1-36) poi, mentre la spingete 
ancora, premete il tasto di avanzamento automatico posto in basso a sinistra. 
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Figura 1-36: Inserimento della carta nella stampante CBM 2023 



Figura 1-37: Percorso della carta nella stampante CBM 2023 
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RSTUVWXYZCS11<- ! "*$’/.&'<>#♦, 70123456789: ;«vTSRBCDEFGHIJKLMNOPQRSTUVWXYZtS Jt«- 

Figura 1-3B: Prova della testina di scrittura 


3. Se desiderate aggiustare la posizione della carta o anche toglierla, dovete muove¬ 
re la leva di rilascio della carta come si opera con una comune macchina da 
scrivere (vedi Figura 1-37). 


Prova della testina di scrittura 

Dopo avere caricato la carta e installato il nastro, dovete ancora provare la 
testina per essere sicuri che la stampante funzioni correttamente. Attenzione, non 
fate mai questa prova ne usate la stampante se prima non avete caricato la carta perchè 
danneggereste sicuramente la testina! 

Procedete allora come segue: 

1. Spegnete la stampante. 

2. Mentre tenete premuto il tasto di avanzamento carta riaccendete la stampante. 
Subito la macchina batterà una lunga serie di caratteri di prova: numeri, lettere e 
simboli speciali, ma non caratteri grafici. Un esempio è indicato in Figura 1-38. 
Se notate qualche difetto chiamate il Rappresentante Commodore, diversamente 

potete iniziare il vostro lavoro. 
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CAPITOLO 2 


IMPIEGO DEI CALCOLATORI CBM 

In questo capitolo descriviamo come operare, attraverso la tastiera, con un 
calcolatore CBM collegato ad unità a disco, a cassette e a stampanti. 

Un calcolatore è una macchina che esegue delle istruzioni (in inglese “statements”) 
che fanno parte di un procedimento logico pensato dall’operatore. In particolare i 
calcolatori CBM “capiscono” istruzioni scritte nel linguaggio CBM BASIC (Begin- 
ing All-purpose Symbolic Instruction Code). 

Le istruzioni BASIC possono essere lunghe al massimo 80 caratteri. Se avete un 
calcolatore della serie 8000 questi 80 caratteri possono stare tutti su una linea del 
display, mentre con gli altri calcolatori occuperanno due righe di 40 caratteri 
ciascuna. Ogni linea di istruzione deve essere terminata battendo il tasto RETURN. 
Se battete una istruzione più lunga di 40 caratteri, nel caso di display piccolo, il 
cursore andrà automaticamente a capo. Se per errore battete una istruzione più 
lunga di 80 caratteri il calcolatore vi risponderà 7SYNTAX ERROR appena voi 
battete il tasto RETURN. 

Per terminare una singola linea di istruzione e avvisare quindi il calcolatore di 
riceverla e analizzarla dovete sempre battere RETURN. 

Le istruzioni BASIC possono essere caricate in due modi: nel “modo immediato” e 
nel “modo differito” (o “a programma”). Nel primo caso esse sono eseguite imme¬ 
diatamente, sono generalmente corte e non vengono memorizzate nella memoria 
centrale. Nel secondo caso invece sono memorizzate e verranno eseguite solo 
quando verrà dato uno speciale comando al calcolatore. 

MODO IMMEDIATO 

Appena acceso un calcolatore CBM funziona in modo immediato e questo viene 
segnalato dalla presenza del cursore luminoso sullo schermo. 


Cursore 
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Il calcolatore lavora sempre in modo immediato sino a che non viene eseguito un 
programma BASIC. Al termine dell’esecuzione ritorna in modo immediato. 

LA TASTIERA IN MODO IMMEDIATO 

Il cursore si posiziona sullo schermo nel punto dove apparirà il prossimo carattere 
battuto alla tastiera. Ogni carattere battuto appare sempre sullo schermo così che il 
cursore si sposta passo passo a destra in attesa del prossimo carattere (vedi Figura 
2-1). Ovviamente alcuni tasti non fanno apparire alcun simbolo come nel caso della 
spaziatura. Battendo il tasto CURSOR si sposta in corrispondenza il cursore a 
destra/sinistra, in alto/basso. Con RETURN il cursore va a posizionarsi a sinistra 
sulla riga successiva. 

In modo immediato ogni sequenza di caratteri che battete sulla tastiera viene subito 
interpretata come istruzione BASIC. Quindi se non rispettate la sintassi del linguag- 






Figura 2-1: Ingresso di dati caricati dalla tastiera in modo immediato 


52 










gio BASIC vi sarà segnalato errore. 

In Figura 2-2 sono illustrate alcune istruzioni valide per il modo immediato. 
Appena il tasto RETURN è battuto, l’istruzione viene eseguita e fornisce gli 
eventuali risultati. 

In Figura 2-3 sono battuti caratteri alfanumerici incomprensibili al BASIC così 
che viene dato l’errore 7SYNTAX ERROR. Se battete però solo caratteri grafici, 
come nell’esempio 3, il sistema BASIC non tenta di tradurli e non da errore. Questo 
vi permette di disegnare liberamente sullo schermo. 

Istruzioni in modo immediato 

Le istruzioni che entrano in modo immediato non devono assolutamente iniziare con 
un numero. Successivamente esamineremo quali sono le istruzioni che si possono 
dare in modo immediato, ma per ora ci limitiamo a descrivere alcune istruzioni di 
stampa, di calcolo aritmetico e di movimento del cursore. 





Figura 2-2: Esempi di istruzioni caricate in modo immediato 
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Figura 2-3: Esempi di dati (non istruzioni) caricati in modo immediato 


L’istruzione PRINT 

{ ™ NT } dati 

L’istruzione PRINT, che è la più usata in modo immediato, permette di rappre¬ 
sentare dati sullo schermo. Subito dopo il comando RETURN appaiono sullo 
schermo, alla riga successiva, i dati elencati nell’istruzione PRINT. 

Invece della parola PRINT si può usare la forma abbreviata “?”. 

Stampa di stringhe 

Una “stringa” è una sequenza di caratteri alfanumerici racchiusa tra virgolette; 

ecco, alcuni esempi: 

"HAI!” 

"SINERGIA" 

"1234567" 

"IL TOTALE È 34,54" 

"MILANO. VIA CARCANO 63" 
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In una stringa possono essere inseriti caratteri alfabetici, numerici, simboli speciali e 

afici, comandi del cursore e il comando REVERSE ON/OFF. Gli unici caratteri che 
non possono essere inseriti in una stringa sono i comandi RUN/STOP e RETURN. 

Una stringa può essere visualizzata direttamente con un comando PRINT, ma anche 
associandola ad una opportuna “variabile di stringa” e poi dando l’istruzione di 
stampare la variabile. 

Per visualizzare una stringa battete PRINT (o la sua abbreviazione “?”) e la stringa 
tra virgolette. 

PRINT "siringa" 

dove: 

stringa è il testo di caratteri 

Battendo quindi il tasto RETURN la stringa sarà visualizzata sulla riga successiva. 
Le parti ombreggiate sono quelle che battete voi, le altre sono la risposta del 
calcolatore. 

PRINT "MONDfiV" 

MONDftV 

REfirV. 

PRINT "MOV 12, 1980“ 

MOV 12,1980 

REFlBV. 

PRINT “12345" 

12345 

REfiDV. 

Provate ora a dare dei comandi di PRINT. Se dopo aver battuto RETURN il 
calcolatore vi risponde 7SYNTAX ERROR avete probabilmente dimenticato di 
scrivere PRINT. Se invece ottenere zero avete dimenticato di mettere la stringa tra 
virgolette. Ripetete la prova sino ad ottenere delle risposte corrette. 

Una stringa può essere stampata anche indirettamente assegnado prima il suo 
valore ad una “variabile di stringa” e poi dando il comando di stampare tale 
variabile. Una variabile di stringa è un identificatore, o un nome, che può rappre¬ 
sentare una qualunque stringa di caratteri. Tale variabile, per essere riconosciuta 
dal BASIC, deve essere costituita da una lettera dell’alfabeto, eventualmente 
seguita da un’altra lettera o da una cifra numerica e poi sempre dal carattere dollaro 
$. I seguenti sono alcuni esempi di variabile di stringa: 

A$ 

MK$ 

B5$. 

Per stampare una stringa indirettamente è necessario dare due istruzioni. La 
prima assegna la stringa alla variabile: 

V$ = "stringa" 

dove: V$ è il nome della variabile di stringa 
stringa è il testo di caratteri 
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La seconda è invece il comando PRINT per stampare il contenuto della variabile: 
print v$ 

dove 

V$ è il nome della variabile di stringa precedentemente definita. 


Ecco alcuni esempi: 


THE PROGRAM AND RUM!" 

RERDV. 

PRINT A# 

TRKE THE PROGRRM AND RUM! 

RERDV. 

DV#-”TUESDAV" 

RERDV. 

PRINT DV* 

TUESDRV 

RERDV. 

• ♦ ♦'* 

RERDV. 

PRINT Bit 

* • ♦ * 

RERDV. 

» 

Provate ora a stampare il vostro nome in modo indiretto usando una variabile. 
Battete prima il nome di una variabile con il segno di dollaro, poi il segno eguale e 
infine, come stringa, il vostro nome tra virgolette. Battete poi il tasto RETURN: 

NM*="JIMMV OLSON— Premere RETURN 

RERDV. 

*S 


Se ottenete la risposta ?TYPE MISMATCH ERROR forse non avete posto il vostro 
nome tra virgolette e non avete scritto correttamente il nome della variabile (per 
esempio senza il segno di dollaro $). Battete quindi PRINT seguito dal nome della 
variabile e premete RETURN. Il vostro nome apparirà sulla riga successiva: 

NM*=" JIMMV OLSON -— Premere RETURN 

RERDV. 

PRINT NM» -- Premere RETURN 

JIMMV OLSON 

RERDV. 

» 

Se apparirà qualcosa di diverso dal vostro nome vi è sicuramente un errore 
nell’istruzione. Se appare 7SYNTAX ERROR avete probabilmente dimenticato o 
scritto male PRINT. Se avete dimenticato il segno $ apparirà uno zero, se avete 
usato un altro nome di variabile di stringa non apparirà niente perchè la seconda 
variabile non ha contenuto. In ogni caso ripetete ancora la prova. 
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CALCOLI ARITMETICI 

Nel capitolo 4 analizzeremo dettagliatamente tutte le possibilità di programmazio¬ 
ne aritmetica, ora vediamo alcuni semplici esempi di addizione, sottrazione, moltipli¬ 
cazione e divisione. È possibile far eseguire subito una espressione aritmetica e poi 
stamparne il risultato. 

Subito dopo il comando PRINT (o?)si scrive l’espressione aritmetica da calcola¬ 
re senza il segno di eguale: 


| PFUNT | espressione 


Ecco alcuni esempi: 


PRINT 2 + 2 
PRINT 5/10 
? 2.5 

? (100/20) - 16.334 

Premendo il tasto RETURN il calcolatore eseguirà il calcolo e visualizzerà il 
risultato. 

Provate un esempio: battete PRINT o ? e un semplice calcolo 2 + 2, quindi 
premete RETURN. Il calcolatore vi risponderà alla riga successiva con il risultato 
4: 


PRIHT 2+2 - Premere Return 

4 

REflDV. 

* 


Se provate ad eseguire gli esempi sopra descritti otterrete sul display le seguenti 
risposte (ricordatevi che le parti ombreggiate sono quelle battute da voi): 

PRINT 2*2 
4 

REflDV. 

PRINT 5/10 
.5 

REflDV. 

? 2.5 
2.5 

REflDV. 

? <100/2016.334 
21.034 

REflDV. 

& 


Calcoli aritmetici mediante variabili 

Se una variabile è seguita dal segno di dollaro $ ad essa viene associato il valore di 
una stringa, se invece è priva di tale segno ad essa viene associato un valore numerico. 
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Anche le variabili numeriche sono definite da una lettera a cui può seguire un’altra 
lettere o una cifra decimale. 

Anche in questo caso potete usare due istruzioni per stampare un valore numeri¬ 
co. Prima dovete associarlo ad una variabile numerica e poi dare l’ordine di 
stampare la variabile: 


v = n 

dove: 

V è una variabile numerica 

n è un numero 

e quindi dare l’ordine di stampa: 

print v 

dove: 

V è la variabile definita precedentemente 

Ecco alcuni esempi di assegnazione: 

a = 1 

NM = 2.56 
81 = 1000/10 

Notate che i valori numerici non sono racchiusi tra virgolette! 

Sullo schermo istruzioni e risposte appaiono così: 

C=100 

PRINT c 
100 

RERDV. 

F1 = 1234.78 

PRINT FI 
1234. 78 

RERDV. 

Ss 

MOVIMENTI DEL CURSORE 

Con i comandi di movimento del cursore, in modo immediato, è possibile sia 
muovere il cursore che modificare istantaneamente il testo sullo schermo. Il cursore 
si muove su tutto lo schermo nella direzione indicata dalle frecce poste sui tasti. 

Quando si sovrappone ad un precedente carattere non lo modifica, salvo che non 
si batta poi un nuovo carattere. I comandi del cursore comprendono: CURSOR 
HOME, CURSOR UP/DOWN e CURSOR LEFT/RIGHT. 

Il cursore viene mosso anche da altri tasti: CLEAR SCREEN e INSERT/DELE- 
TE. CLEAR SCREEN pulisce lo schermo e pone il cursore nella prima posizione in 
alto a sinistra detta anche posizione “home” (cioè di riposo). INSERT/DELETE 
inserisce spazi alla destra del cursore o cancella caratteri alla sinistra. 

Se un comando di cursore viene dato in una stringa e cioè dopo l’apertura di 
virgolette (o dopo un numero dispari di virgolette) esso farà parte della stringa e 
verrà evidenziato con uno speciale carattere come riportiamo nella Tabella 2-1. 
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Tabella 2-1: Rappresentazione dei tasti di cursore nelle stringhe 


Funziona 


Tasto Simbolo nalla stringa 


DELETE 

INSERT 

Homo Cursor 

Clear Scraan 

Cursor Down 

Curaor Up 

Cursor Right 

Cursor Loft 


Shift 


Shift 


— 

INST 

DEL 

\_ 


INST 

1 DEL 

f Cl *~ 1 
SCREEN 
(HOME 

f CtR 1 
SCREEN 
[HOME j 


A 

CURSOR 

GZJ 


Shift 


A 

CURSOR 


Lvj 



Shift 


(Reverse shift T) 


■si (Reverse S) 

7J (Reverse Shift S) 

J0 (Reverse Q) 

n (Reverse Shift Q) 


Il (Reverse 1 ) 


Il (Reverse Shift ] ) 


Riportiamo alcuni esempi di movimenti di cursore contenuti in stringhe: 


PRI NT " 1< CRSR— >2< CRSR—>3< CRSR—>4 < CRSR— >5 " 
12 3 4 5 


REftDV. 

£ 


PRINT "tcCRSR— > <CRSR— >*<CRSR— > <CRSR— >#<CRSR— > <CRSR— >♦" 


REftDV. 

* 

PRINT "*<CLR SCREEN> <CRSR l > <CRSR— > <CRSR | XCRSR J > * <CRSR|> * <CRSRJ> #<CRSR(> 
<CRSR| > * <CRSR | XCRSR | XCRSR 1 XCRSR J XCRSR i >" 

♦ 

* 

* 

♦ 

* 

REftDV. 

« 




MODO DIFFERITO 


Quando si opera in modo differito, le istruzioni sono dapprima caricate nella 
memoria del calcolatore e solo successivamente saranno eseguite. Per questo 
motivo ogni istruzione deve iniziare con un numero progressivo. 

CARICAMENTO DEL PROGRAMMA 

Un programma è un insieme di istruzioni BASIC che guidano il calcolatore alla 
risoluzione di un problema. 

Un programma può essere caricato attraverso la tastiera come anche da una 
periferica esterna (cassetta o dischi) direttamente in memoria. 

Quando caricate un programma dalla tastiera ad ogni istruzione dovete dare un 
numero progressivo di riferimento. Al termine di ogni linea di istruzioni battete 
RETURN; essa viene subito memorizzata, ma continua a rimanere presente sullo 
schermo. Le istruzioni rimangono in memoria sin quando non vengono cancellate 
o il calcolatore non sia spento. Per evitare quindi di perdere i programmi spegnendo 
il calcolatore, è necessario avere una memoria esterna come una unità a cassette o a 
dischi su cui depositare i programmi che si desidera conservare. Per riutilizzare 
questi programmi basterà richiamarli dalla periferica. 

Nel capitolo 4 vedremo come scrivere un programma in BASIC, mentre a questo 
punto è sufficiente solo sapere come caricarlo, come rileggerlo dalla memoria, 
come metterlo in esecuzione, come fermare e riprendere la sua esecuzione e come 
cancellarlo dalla memoria. Come esempio provate a caricare questo piccolo pro¬ 
gramma che chiamiamo PROVA. 


10 FC'R 1=1 TO 000 
20 PRINT "fi" ; 

20 NEXT I 
40 PRINT "UFF*!" 
50 END 


Non preoccupatevi se non riuscite a capirne il significato, cercate invece di capire 
come il calcolatore opera su un qualunque programma. 

Se battendo una linea del programma vi accorgete di avere fatto un errore, 
oppure è il calcolatore che vi avvisa con ?S YNTAX ERROR, per correggere questa 
linea basta riscriverla a iniziare dal suo numero e poi battere RETURN alla fine: la 
nuova linea sostituisce integralmente la vecchia. 

Vediamo ora come si può “editare” un programma contenuto nella memoria 
centrale. Il termine editing ha il significato di redigere e stampare un testo ed è molto 
usato nella terminologia dei calcolatori. 
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Comando LIST 

Il comando LIST effettua la visualizzazione del programma, in quel momento 
presente in memoria, al fine di poterlo leggere, correggere ed eventualmente modifica¬ 
re. Il comando LIST può essere seguito da uno o due numeri di linea: 


LIST 


(spazio) 

linea 

linea, — linea, 
— linea 
linea — 


lista tutto il programma 
lista una linea 
lista dalla linea, alla linea, 
lista dall'inizio alla linea 
lista dalla linea alla fine 


dove: linea è il numero di linea o riga del programma. Linea, è minore 

di linea,. Se un numero di linea non esiste nel programma 
allora verrà stampata una linea bianca. 


Se il programma è più lungo di quanto può stare sullo schermo, il comando LIST 
farà scorrere verso l’alto (“scroll”) le righe. È preferibile quindi visualizzare sullo 
schermo solo quelle righe di programma che interessano usando i parametri di linea 
dopo il comando LIST. 

Ecco infatti alcuni esempi: 


LIST 

lista 

LIST 50 

lista 

LIST 60-100 

lista 

LIST — 140 

lista 

LIST 20000 — 

lista 


l'intero programma 
solo la riga 50 

tutte le righe dalla 60 alla 100 incluse 
tutte le righe dall'inizio alla 140 inclusa 
dalla 20000 alla fine 


Provate a listare il programma PROVA: battete LIST e poi il tasto RETURN. 


LIST 

10 FOR 1*1 TO 800 
20 PRINT M fl"; 

30 NEXT I 
40 PRINT UFFR! 

50 END 
RERDV. 

Noterete che il cursore scompare durante la stampa del programma per riappari¬ 
re solo dopo l’avviso di READY e avvisarvi che il calcolatore è ritornato in modo 
immediato. 

Esercitatevi ora a listare solo una parte del programma per esempio solo la riga 
10 : 

LIST 10 

IO FOR 1*1 TO 800 

RERDV. 

& 


Oppure dalla riga 20 alla 40: 

LIST 20-40 

20 PRINT **R"; 
30 NEXT I 
40 PRINT UFFR! 
RERDV. 

M 
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Continuate da soli a provare tutte le possibilità del comando LIST. 

Comando di esecuzione RUN 

Il comando RUN pone in esecuzione il programma in quel momento presente in 
memoria. Battete RUN e il tasto RETURN. Il formato previsto per il comando 
RUN è il seguente: 

RUN I spazio | pone in esecuzione dall'inizio del programma 

I linea ) P° ne in esecuzione dalla riga indicata 

Provate ad eseguire il programma PROVA battendo RUN e poi RETURN. Un 
attimo dopo lo schermo si riempirà di 800 lettere A e terminerà con un UFFA! 
Notate che anche in questo caso, durante l’esecuzione del programma, il cursore 
scompare per riapparire solo alla fine quando il calcolatore ritorna in modo 
immediato. 


RUM 

AAAAAAAHAAAHAHHHAAHAHHHHHflAHfiAAAfiHHAARAA 

HHAHAAAAAHHAHHfiAAAHHftflHAAAAHflAAAAAAAAAHA 

ARRARflAAflfiAARARARfiflARRRAflflRRRRRRRARRAARR 

ARARRfiRRRRRARfiARRRRRRRARRfiARfifiRRARRRARRA 

RRRRRflRRARRRfiRRfiRAfiRRRRRARRAARARRRRRRRRR 

RRRRRRRRRRRRRRRRflRRRRRRRRRRRRRRRRRRRRRRR 

RRRRRRflflRRRRRRRfiRflRRflfìflRRRRRRRRRRRRRRRflR 

RRRRRRRRRRflRflRflRRRRRRRRRRRRRRRRRRRRRRRRR 

RRRRARRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRflflR 

RRRRRRRRRRRRRRRRRRRRRflRRRRRRRRRRRRRRRRRR 

RRRRRRRRRRfìfiRRRRRRRRRRRRRRRRRRRRARRRRRRR 

RRRRRRRRRRRRhRRRRRRRRRRRRRRRRRRRRRRRRRRR 

RRRRRRRRRRRRRRRRRRRRRRRRRhRRRRRRRRRRRRRR 

HRRRRRRRRRRRRRRRRRRRRRRflRRflRRRRRRRRRRRRR 

rrrrrrrrrrrrrrrrhhrrrrrrrrrrrrrrrrrrrrrr 

RRRRRRRRRRRRRRRRRRRRRRRRfiRRRRRRRRRRRRRRR 

MRRRRfiflRRRRRRRRRRRRARflRRRRRRRRRRRflRRRRRR 

rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 
rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 
"UFFfi ! " 

RERDV. 

» 


Potete indicare al calcolatore di iniziare l’esecuzione di un programma da una 
qualunque riga indicandone il numero dopo il comando RUN. Per esempio a partire 
dalla riga 40: 


RUN 40 
UFFA' 

RERPV. 

* 

Attenzione però che non sempre un programma può essere posto in esecuzione da 
una riga qualunque. L’esempio PROVA non può partire infatti dalle righe 20 e 30 e 
in tal caso avreste subito un avviso di errore. 
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Come fermare l’esecuzione 

Un programma può essere fermato durante la sua esecuzione e questo prende il 
nome di “break”. Il comando relativo si dà battendo il tasto STOP. Il calcolatore vi 
avviserà subito indicandovi a quele riga avete fermato il programma: 

RUN 

HHAHfiHAAHAAAAAAAAAAAAAAAAAAAAAAAAAARRAPA 
AAflRfiARfiRAARRARAAAAARAAARARRAARflAAARflAAR 

Premere STOP 
Messaggio di "BREAK” 


RAARRAARARRRRARRRAARAARARRRRARRRAAAAAAAR 

RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

RRRRRRRRRRRRR -- 

BREAK IH - 

READY. 

m 


Durante un break di programma il calcolatore ritorna in modo immediato così che 
potete dare comandi supplettivi come LIST, LOAD, SAVE e VERIFY oppure 
qualunque altra istruzione compatibile con il modo immediato come, per esempio, 
cambiare il valore a delle variabili prima di riprendere l’esecuzione del programma. 

Continuazione di un programma interrotto 

L’istruzione “continue” CONT effettua la ripresa dell’esecuzione di un programma 
precedentemente fermato. Se battiamo CONT per riprendere il programma PRO¬ 
VA otteniamo: 


RUN 


RRRRRRRRRRRRRRRRRflflRRRRRRRRRRRRflRfiRRRRRR 

RRRRRRRRRRRRRRRRfififlRRRRRRRRRRRRRRRRRflBflfi 

RRRRRRflflRRRRRRRRRRRRRflfiRfiRRRflRRRRRRRRRRR 


RRRRRRRRRRRfiARRRflRRRRflRRRRRRRRRRRflRRfififlR 

RRRRRRRRRRRRR -*- 

BREAK IN 40 


Premere STOP 


PERII V. 

CONT -•- Comando di CONT 



RRRRRRRRRRRRRARRRftRRRRRRRRRfìRRfìRRRRRRRRR 



•iRRRRRRRflRRRRRRRRRRRRRRRRRRRfiflRfìRflRRRflfiR 
RhRRRRRRRRRRRRRRRRRRRRRRRARRRRRRARRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRfìRRflRRRRR 
AAAAAAhAAAAhAAAAAARAAAAARAARRRAAARRAAAAA 
rfAAfìAAAHAHAHAAARAAAARRAAAAAAAARARRARAAAR 
mAARRhARRARAAARRAARARAAARRhRARRRRARAARAR 
riRRRRRRRRRRRRRRRRRARRRRRRR UFFA ! 


READY. 

$ 
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Attenzione però che il comando CONT non fa riprendere l’esecuzione di un 
programma fermato a causa di un errore! 

Come cancellare un programma dalla memoria 

Un programma in memoria può essere cancellato mediante l’istruzione NEW subito 
seguita da RETURN. Questa procedura non cancella però ciò che è sullo schermo. 
Fate quindi attenzione ad usare il comando NEW perchè potreste accidentalmente 
perdere un programma senza accorgervene. Provate a cancellare il programmino 
PROVA: 


LIST - LIST del programma 

IO FOR 1=1 TO S00 
20 PRINT "fi".. 

SO NEXT I 
40 FRINT "UFFA!" 

50 END 
RERI'Y. 

NEW ■*- Cancellazione del programma 


REfiDV. 
LIST ♦ 


REfiDV. 

« 


Nuovo LIST 

Nessun programma in memoria 


È buona norma, prima di caricare un nuovo programma, dare il comando NEW per 
cancellare un eventuale vecchio programma ed evitare quindi spiacevoli sovrapposizio¬ 
ni. 


INSIEMI DI CARATTERI STANDARD E ALTERNATIVO 

Ogni calcolatore CBM ha un insieme di caratteri “standard” ed uno “alternativo”. 
Questi insiemi di caratteri sono riportati nell’Appendice A. 

Al momento dell’accensione i calcolatori PET operano subito con l’insieme stan¬ 
dard; i calcolatori CBM operano invece con l’insieme alternativo. Per cambiare 
l’insieme di caratteri dovete forzare un numero con il comando POKE nella 
posizione di memoria 59468. Se questo numero è 12 l’insieme selezionato e quello 
standard, se invece è 14 l’insieme selezionato è quello alternativo. 

POKE 59468.12 attiva l'insieme di caratteri standard 

POKE 59468,14 attiva l’insieme di caratteri alternativo 

Programmazione con l'insieme di caratteri alternativo 

Quando usate l’insieme alternativo e state scrivendo un programma in BASIC, in un 
calcolatore CBM, non potete selezionare le lettere maiuscole con il tasto SHIFT 
abbassato. 
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-I calcolatori CBM assumono che sia sempre presente l’insieme di caratteri standard 
per cui, se premete SH1FT, l’interprete BASIC riconosce i caratteri standard shiftati 
che non sono le lettere maiuscole. 

Facciamo un esempio. In alcuni casi potreste volere battere le lettere maiuscole 
abbassando SHIFT, come per la F di questa istruzione: 

10 For 1 = 1 To 10 Stei* 2 

Il calcolatore CBM assume però che i caratteri appartengono all’insieme stan¬ 
dard, per cui se il testo SHIFT è abbassato riconosce altri caratteri: 

10 -OR -, = 1 IO 10 *TEP Z 

Ovviamente questa istruzione è errata e verrà rifiutata. 

Solo nell’ambito delle stringhe non avrete alcun errore con i caratteri alternativi 
shiftati. 


IMPIEGO DELLE UNITA’ A CASSETTE 


Le unità periferiche a cassette o a dischetti permettono di memorizzare sia pro¬ 
grammi che dati. I calcolatori CBM, con dimensioni piccole di memoria, normal¬ 
mente si interfacciano a cassette mentre quelli con memorie più grandi si collegano 
a dischetti. Diamo ora le istruzioni per operare con le unità a cassette. 

Per prima cosa assicuratevi che una cassetta sia caricata correttamente nel drive 
# 1 come abbiamo già visto nel capitolo 1. Riavvolgete il nastro al suo inizio 
mediante il tasto REWIND e poi premete STOP. Controllate che tutti gli altri tasti 
siano nella posizione spento (cioè alzati). 

Come primo esempio caricheremo su cassetta il programma PROVA. Le istru¬ 
zioni ombreggiate sono le vostre mentre le altre sono quelle di risposta del calcola¬ 
tore. 


Comando SAVE di un programma 

Se memorizzate i vostri programmi su una cassetta siete sicuri di non perderli 
quando spegnerete il calcolatore. Ricordate però che il comando SAVE salva solo il 
programma in quel momento presente in memoria. 

Il formato del comando SAVE è il seguente: 

SAVE "nome del programma" il programma è salvato sulla cassetta nel drive # 1 
SAVE "nome del programma", 1 il programma è salvato sulla cassetta nel drive # 1 
SAVE "nome del programma". 2 il programma è salvato sulla cassetta nel drive # 2 

Il numero # 1 o # 2 indica su quele drive si vuole salvare il programma. 
L’indicazione # 1 può essere omessa perchè il calcolatore considera il primo drive 
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come privilegiato o di obbligo (in inglese “default”), ma se volete andare sul 
secondo dovete indicarlo esplicitamente. 

Per far pratica caricate quindi il programma PROVA su una cassetta (drive # 1). 
Battete prima il testo alla tastiera, poi date il comando SAVE “PROVA” e premete 
RETURN. Il calcolatore risponde di predisporre il registratore PRESS PLAY & 
RECORD ON TAPE #x. 

SfiVE "PROVO" 

PRESS PLftV * RECORD OH TfiPE #1 

Premete allora contemporaneamente PLAY e RECORD. Il registratore si mette in 
movimento. Se per errore avete premuto solo PLAY il registratore non si pone in 
registrazione. Sia voi che il calcolatore crederete di registrare, ma non sarà assoluta- 
mente così. 

All’inizio della registrazione il calcolatore vi avvisa con OK e WRIT1NG PRO¬ 
VA; alla fine vi da READY e riappare il cursore. 

SfiVE "PROVfi" 

PRESS PLRV * RECORD ON TftPE «1 

OK «•- ■ - ■ ■■ Testo PLAY premuto sul driver # 1 

TRITINO PROVA 

READY. 

» 

Attenzione: se uno dei quattro tasti REC, REW, FFWD o PLAY è premuto 
durante l’esecuzione di una istruzione SAVE il calcolatore inizierà subito a “scrivere”. 
Premete quindi, sempre per prima cosa, il tasto STOP e assicuratevi di ricevere il 
messaggio PRESS PLAY & RECORD ON TAPE # x. Attenzione ancora a premere 
correttamente PLAY e RECORD. 

Dopo una operazione SAVE controllate che il programma sia stato correttamen¬ 
te registrato con una istruzione di verifica VERIFY. 

Comando VERIFY di un programma 

Questo comando verifica l’esattezza di una registrazione. Esso simula un comando 
di caricamento LOAD dalla periferica e controlla l’eguaglianza tra il programma ■ 
registrato e il programma ancora contenuto nella memoria centrale.Se trova una 
diversità avvisa subito con un messaggio. Vi consigliamo di verificare sempre un 
programma subito dopo una operazione SA VE. 

11 formato di VERIFY è: 

VERIFY verifica il primo programma che incontra sulla cassetta # 1 

VERIFY "nome del programma", 1 verifica il progiamma nominato dalla cassetta # 1 

VERIFY "nome del programma", 2 verifica il programma nominato dalla cassetta # 2 

Provate allora a verificare il programma PROVA che avete appena registrato: 
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1 Riavvolgete il nastro all’inizio o al punto da cui inizia la vostra registrazione. 

2 . Premete il tasto STOP. 

3 . Battete il comando VERIFY. In questo caso non è necessario che diate ne il 
nome del programma ne il numero di drive. Il numero del drive lo dovete dare 
solo se è il secondo. 

La successione di comandi e messaggi di riposta sul display sarà allora la 
seguente: 


Sfi','E "PROVA" 

PRESS PLfiV * RECORD ON TAPE #1 

OK 

EPITIMO PROVO 

REfiDV. -- Ravvolgere il nastro e posizionarlo 

VER IFV PROVA prima dell'inizio del programma PROVA 

PRESS PLfiV ON TAPE #1 

OK -- Premere PLAY sulla cassetta # 1 

SEARCHING POR PROVA 
ROUND PROVA 
VERIFVNG 
OK 


REfiDV. 

m 


Quando appare il messaggio PRESS PLAY ON TAPE # 1 premete il tasto PLAY 
sul drive # 1. L’unità a cassette ricercherà il programma PROVA e vi avviserà con i 
messaggi OK e SEARCHING FOR PROVA e una volta trovato vi dirà FOUND 
PROVA. Durante la verifica sarete avvisati con VERIFYING e se la registrazione è 
corretta avrete un OK finale. Diversamente in caso di errori avrete il messaggio 
7VERIFY ERROR. In quest’ultimo caso riavvolgete il nastro e riprovate la lettura 
con VERIFY. Se la segnalazione di errore persiste allora sicuramente il programma 
PROVA è stato mal registrato. Registratelo nuovamente con il comando SAVE, 
verificatelo con VERIFY e se alla fine riscontrate ancora errori è molto probabile che 
il nastro della cassetta in quel punto sia difettoso. Provate a registrare su una 
diversa porzione di nastro o al limite cambiate cassetta. 

Comando LOAD di un programma 

Il comando LOAD carica un programma nella memoria centrale del calcolatore. 

Per caricare un programma dal drive # 1 potete usare uno dei due formati seguenti: 

LOAD "nome del programma" 

LOAD "nome del programma", 1 

Quando si dà il comando LOAD non è sempre necessario specificare il nome del 
programma. Se lo si specifica il calcolatore caricherà soltanto quel programma. 
Diversamente caricherà il primo programma che incontra sul nastro. Analogamen- 
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te non è richiesto di specificare il numero # 1 di drive, mentre è obbligatorio 
indicare # 2 se si lavora con la seconda unità a cassette. Per il calcolatore PET 2001 
la cassetta # 1 è quella assemblata al suo interno mentre per gli altri calcolatori è 
quella collegata all’interfaccia posteriore. Ripetiamo ancora che se si lavora con un 
drive solo o con il primo non è necessario specificare il numero # 1, mentre bisogna 
farlo se si lavora con l’eventuale secondo drive. 

Sono eguali infatti: 

LOAD "PROVA" 

O LOAD "PROVA", 1 

Facciamo un esempio di come si può caricare il nostro programma PROVA: 


LORD “PROVA" 

PRESS PLfiV OH TAPE #1-.— Premere PLAY sulla cassetta t> 1 

0K 

SEARCHING POR PROVA 

FOUNB PROVA 

LOAHIHG 

REABING 

M 


A seguito del comando LOAD il calcolatore risponde PRESS PLAY ON TAPE 
# 1. Se tutto funziona correttamente il calcolatore vi avvisa con OK e poi con 
SEARCHING FOR PROVA. Per ogni programma che viene incontrato sul nastro 
appare l’indicazione FOUND seguita dal nome, ma solo quando sarà individuato 
PROVA avverrà il caricamento LOADING e alla fine apparirà READY. 

Al termine di una operazione di caricamento si può lasciare abbassato il tasto 
PLAY per un eventuale altro caricamento. Ma attenzione se dovete invece fare 
un’operazione SAVE commettereste un grave errore perchè in tal caso dovete 
premere anche RECORD. Il calcolatore “sente” che un tasto è premuto, ma non sa 
riconoscere quale. 

Alcune volte si ha difficoltà a caricare un programma nella memoria. Può 
accadere che il calcolatore riconosca il nome del programma, ma non lo carichi 
affatto. Provate a ripetere anche più volte l’operazione di caricamento. Se proprio 
non riuscite può significare o che la precedente operazione SAVE è stata mal 
effettuata o che l’unità a cassette è guasta. 

Prima di dare un comando LOAD ricordatevi di riavvolgere il nastro sino ad un 
punto poco prima di quello da cui inizia la registrazione del programma. In caso 
diverso il calcolatore cercherà inutilmente di individuare il vostro programma fino 
alla fine del nastro. Desideriamo darvi un altro consiglio: se il vostro programma è 
registrato verso la fine del nastro e voi iniziate la sua ricerca proprio dall’inizio, 
passerà molto tempo prima che il calcolatore legga tutto il nastro e trovi il 
programma. Vi consigliamo allora di usare la finestrella, che è posta al centro di 
ogni cassetta, per avere una indicazione seppure approssimata della posizione del 
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nastro. Così con i comandi REW e FFWD vi potete portare un pò prima del punto 
presumibile di inizio del vostro programma. Da questo punto approssimativo 
lasciate poi che sia il comando LOAD a trovare il programma. 



La finestrella di cui si è accennato sopra è ripartita in 100 tacche, segnate di 10 in 
10, e attraverso essa si vede il nastro avvolto. A seconda dello spessore dell’avvolgi¬ 
mento si ha una diversa indicazione della posizione del nastro. 

Una volta che il programma è caricato in memoria è buona norma “listarlo” 
(cioè leggerlo) con il comando LIST e poi, se ogni cosa ci sembra corretta, porlo in 
esecuzione con il comando RUN. 


Comando LOAD & RUN 

Il comando LOAD & RUN carica ed esegue automaticamente il primo programma 
incontrato sulla cassetta # 1. Tale comando viene dato premendo il tasto RUN/STOP 
shiftato. 

LOAD & RUN esiste solo con le versioni BASIC < 3.0 (versioni l.x, 2.x e 3.x). 

Questo comando opera solo con il drive # 1 e non permette di indicare il nome 
del programma. Di conseguenza carica ed esegue solo il primo programma che 
incontra. Per quanto concerne i messaggi di avviso esso visualizza gli stessi messag¬ 
gi di LOAD: 


Lr 


Premre il taso RUN/STOP shiltato 


PRESS PLAY ON TAPE #1 
OK 


FOUHII PROVA 
LùhUIMO 



Premere PLAY sulla cassetta # 1 


Esecuzione automatica del programma 


Il comando LOAD & RUN, che viene dato premendo RUN/STOP shiftato, può 
essere dato solo in modo immediato. Se lo date durante l’esecuzione di un program¬ 
ma esso ne interrompe l’esecuzione perchè funziona come STOP. 
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IMPIEGO DELLE UNITA’ A DISCO 


Spiegheremo ora come memorizzare un programma su un dischetto e poi come 
richiamarlo e porlo in esecuzione. 

Per svolgere queste funzioni non è necessario conoscere la programmazione 
BASIC ne i comandi specifici di una unità a disco come vedremo invece nel capitolo 
6. Le prime operazioni che si devono imparare sono: come “inizializzare” i drive, 
come stampare (listare) il contenuto della “directory” di un dischetto e come 
memorizzare, caricare ed eseguire un programma da dischetto. 

DOS VERSIONE l.x E 2.x 

DOS significa “Disk Operating System” ed è l’insieme di programmi che sovrin¬ 
tendono alla gestione delle periferiche a disco. 

La Commodore ha presentato versioni successive di DOS che indichiamo con 
una numerazione decimale. La prima versione DOS l.x (x è un numero tra 1 e 9 che 
rappresenta una sottoversione) è compatibile con alcuni modelli di drive CBM 2040 
ed è usata con il BASIC < 3.0. 

La versione DOS più sviluppata è invece la 2.x. Essa presenta comandi di 
gestione del disco notevolmente semplificati e migliorie nella memorizzazione dei 
dati. Sono stati anche corretti alcuni errori che si erano riscontrati nella versione 

l.x. Il DOS 2.x può operare con qualunque versione di BASIC, mentre il DOS l.x 
opera solo con il BASIC < 3.0. Il DOS l.x potrebbe anche operare con il BASIC 
4.0, ma alcuni comandi al disco del BASIC 4.0 possono causare degli errori di 
sintassi (disk syntax error). 

Tutte le unità a disco CBM 8050 impiegano il DOS versione 2.x con il BASIC 4.0. 
Invece i modelli CBM 2040 usano o il DOS l.x con il BASIC < 3.0 o il DOS 2.x con il 
BASIC 4.0. 


COME CARICARE UN PROGRAMMA DA DISCHETTO 
CON IL BASIC < 3.0. 

La procedura da seguire in questo caso è la seguente: 

1. Aprire un “file” (archivio) logico sulla periferica. 

2. Inizializzare il (o i) drive. 

3. Listare (stampare) la “directory”. Questo punto è opzionale, ma permette l'esatta 
verifica di tutti i nomi di programma. 

4. Caricare il programma. 

Per dimostrare quanto detto impiegheremo il dischetto TEST/DEMO fornito 
assieme all’unità a disco dalla Commodore. Iniziate quindi a inserire il dischetto 
TEST/DEMO nel drive 0 come abbiamo già visto nel capitolo 1. 
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Apertura di un file logico e di una periferica 

Prima di caricare un programma da un dischetto è necessario “aprire”, cioè 
stabilire, una linea di comunicazione logica tra il calcolatore e l'unità a disco. Il 
comando OPEN, da inserirsi in modo immediato, ha appunto questo scopo. 

Il formato di un comando OPEN è il seguente: 

OPEN 1, 8, 15 


Come inizializzare un drive di unità a disco (BASIC < 3.0) 

Quando si usa il BASIC < 3.0 ogni drive deve essere inizializzato ogni volta che si 
inserisce in esso un dischetto. Questo deve essere fatto anche quando si sposta da un 
drive all’altro uno stesso dischetto. Ricordiamo che un drive deve contenere un 
dischetto prima dell’operazione di inizializzazione. 

Il formato del comando INITIALIZE (o la sua forma abbreviata “I”) è il 
seguente: 


PRINT #file, "{ 'MITIAUZEj d( .„ 

dove: 

file è il numero logico di file usato nel comando OPEN 
dr è il numero di drive 0 o 1 

Per inizializzare il drive 0 contenente il dischetto TEST/DEMO, battete: 
PRINT# 1, "IO" 

In corrispondenza dovete vedere l’indicatore luminoso del drive 0 accendersi per il 
breve tempo che il motorino gira. Quando la spia si spegne il drive è inizializzato. 
Per inizializzare il drive 1 inserite invece in esso il dischetto e battete: 

PRINT # i, “ir 

Per inizializzare ambedue i drive, battete: 

PRINT # 1, “I" 


Caricamento della directory di un dischetto (DOS l.x) 

Se desiderate conoscere quali programmi sono registrati su un dischetto dovete 
leggere la sua “directory” che rappresenta appunto l’indice di quanto contiene. Se 

conoscete già la directory passate allora al paragrafo successivo. 

Per leggere una directory dal drive 0, nell’ambito del BASIC < 3.0, battete: 

LOAD "$0". 8 

Se il dischetto è nel drive 1, battete invece: 

LOAD "$1". 8 
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Se non specificate il numero di drive verranno lette ambedue le directory: 

LOAD 8 

A conferma del caricamento della directory appariranno sullo schermo i seguenti 
avvisi: 

LOHD"*0“,8 

SEARCHING FOR *0 

LORDINO 

READY. 

* 

Dopo l’avviso READY battete LIST e premete RETURN. 

Sullo schermo appariranno in successione i nomi dei vari programmi. Se sono più 
di 25 i primi nomi scorreranno verso l’alto fuori dello schermo per far posto alle 
righe successive. Per rallentare lo scorrimento delle righe (“scroll”) tenete abbassa¬ 
to il tasto REVERSE o il tasto — nei calcolatori commerciali. Per fermare la 
visualizzazione premete il tasto STOP. 

Potete rivedere la vostra directory dando nuovamente il comando LIST. 

Ecco un esempio di directory del dischetto TEST/DEMO per il modello CBM 
2040: 


LIST 


0 

6 "DOS SUPPORT 4.0" PRO 

27 "Duri 3.4" PRO 

1 " DISK DATA " SEG 

15 "DIAGNOSTIC BOOT" PRO 

IO "COPY DISK FILES" PRO 

4 "CHECK DISK" PRO 

10 "PET DISK" PRO 

10 "DISK DISPLAY" PRG 

3 "DISK COI1M" PRO 

2 "DISK C0MM2" PRO 

3 "DISK C0nM3" PRO 

4 "DISK URITE" PRG 

4 "DISK READ" PRG 

Z "DISK OVERLAVS" PRG 

5 “DISK DIR" PRO 

7 “ PET DATA “ SEQ 

34 "RANDOM 1.00" PRG 

27 “PRINTER DEMO" PRG 

12 "SEGUENTIAL 1.00" PRO 

484 BLOCKS FREE. 


La prima riga è il titolo o intestazione. Le altre riportano il nome del programma 
e l’indicazione di quanti “blocchi” occupa ogni singolo programma. Le virgolette 
che racchiudono i nomi non fanno parte del nome stesso. I blocchi sono un’unità di 
misura dei dischi e rappresentano le parti in cui esso viene diviso. Al termine della 
directory viene data una informazione molto utile che ci indica quanti blocchi sono 
ancora disponibili per altre registrazioni. Infine sulla destra viene specificato se a 
ogni nome corrisponde un programma (PRG) perchè potremmo anche aver regi¬ 
strato archivi o file di dati. Non preoccupatevi troppo di tutta l’informazione che 
una directory vi dà: per ora cercate solo di vedere se ritrovate i vostri programmi. 
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Il comando LOAD (BASIC < 3.0) 

Per leggere un programma da dischetto e caricarlo in memoria si dà il comando 
LOAD con il seguente formato: 

LOAD "0: nome del programma", 8 


Dove 0 è il numero del drive che è separato dal nome del programma da due punti 
(:) e ambedue sono posti tra virgolette. Se non viene specificato il numero di drive il 
sistema cercherà il programma su ambedue i drive a condizione, ovviamente, che 
siano stati inizializzati. 

Per caricare il primo programma presente sul dischetto TEST/DEMO, inserito 
nel drive 0, battete: 


LOAD "0 DOS SUPPORT 4.0".e 

Quando premete RETURN vi appare sullo schermo il seguente messaggio, 
mentre l’indicatore luminoso LED del drive si accende e l’unità produce un leggero 
ronzio: 


-GAP “0 DOS SUPPORT 4.0",S 

SEARCHINO POR £i DOS SUPPORT 4.0 

LOADIMG 

READV. 

0 

Dopo il messaggio SEARCHING FOR appare sempre il numero del drive e il nome 
del programma. Quando poi il programma è caricato si spegne l’indicatore LED e 
cessa il ronzio mentre sullo schermo appaiono il segnale READY e il cursore. Il 
programma può quindi essere listato e posto in esecuzione. 

Il comando LIST (BASIC < 3.0) 

Un programma caricato in memoria può essere listato mediante un comando 
LIST. Se si desidera listarne solo una parte vi ricordiamo che è sufficiente aggiunge¬ 
re a LIST le indicazioni dei numeri di linea. 

Il comando RUN (BASIC < 3.0) 

Anche questo è un comando che già conosciamo. Battete RUN seguito da 
RETURN. 

Come preparare un dischetto nuovo nel BASIC < 3.0 

Un dischetto nuovo o vergine (in inglese “blank”) deve essere preparato o “format¬ 
tato” prima di poter essere impiegato. Descriviamo allora la procedura per dare 
formato a un dischetto nuovo o ridarlo ad uno vecchio che intendiamo riusare. 
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“Aprite” il drive come segue: 


OPEN 1, 8, 15 


Per dare formato ad un dischetto e inizializzare il drive si usa il comando NEW nei 
modo seguente: 


PRINT # file, " 


N i 
NEW I 


dr nome del disco, id” 


dove: file 
dr 

nome del disco 
id 


è il numero logico del file usato nel comando OPEN 
è il numero di drive 0 o 1 

è ovviamente il nome dato a quel particolare dischetto 
è un identificatore di due caratteri 


Nel nostro esempio il dischetto è inserito nel drive 0, il nome è YAK e il numero di 
identificazione è 01. Battete allora i comandi OPEN e NEW: 


OPEN 1,8,15 
PftlUTftl, "NO YtiK ■ 01 " 


Battete RETURN. Come al solito l’indicatore LED si accende e alla fine sullo 
schermo appare READY accompagnato dal cursore. Potete quindi svolgere altre 
funzioni come caricare la directory: 


LORD •'*0“,S 


Abbiamo indicato $0 perchè il dischetto è nel drive 0; diversamente sarebbe stato 
$1. Quando la directory è caricata possiamo visualizzarla, battendo: 

LIST 

Ogni directory inizia con il suo titolo e termina con l’indicazione dei blocchi liberi 
che in questo caso sono ovviamente tutti: 

LIST 

0 WniMMSBHHBIKiMI 

67P BLOCKS FPEE. 

PERPV. 

% 


A questo punto il dischetto è formattato e potete quindi registrare su esso i vostri 
programmi o file. 


Il comando SAVE (BASIC < 3.0 ) 

Il comando SAVE per registrare un programma su un dischetto è molto simile a 
quello per registrare su una cassetta. Le differenze risiedono nella sintassi, cioè nel 
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formato, che nel nostro caso è il seguente: 

SAVE "dr: nome", 8 

dove: 

dr è il numero del drive 0 o 1 
nome è il nome del programma 

Il numero del drive (0 o 1) non può essere omesso. Il numero 8 è importante 
perchè avvisa il sistema che la registrazione deve andare su disco. Se il numero 
8 viene omesso il sistema cercherà di registrare sulla cassetta 1. 

Provate ora a registrare il vostro programma PROVA su un dischetto nel drive 0. 
Inserite un dischetto già con formato nel drive 0; quindi date OPEN e INITIALIZE 
al drive, se non lo avete già fatto in precedenza. Caricate alla tastiera il programma 
PROVA e date il comando SAVE e RETURN. 

OPEN 1,8* 15 -_ Apertura (OPEN) del driver 

PRINT*i, "ie* 1 -*- Inizializzazione del drive 0 

10 FOR I«1 TO 800 

20 PRINT “fl" 

30 next I Registrazione del programma PROVA 

40 PRINT "UFFA!"! 

30 END 

Sfi VE " 0 PROVfi “ , 3 u — Conferma 

REPDV. 

$ 

Mentre il programma viene “salvato” il LED del drive si accende e sul video 
mancano READY e il cursore. Al termine della registrazione, e a conferma che 
tutto è regolare, ritornano appunto sul video READY e il cursore. Come già detto 
in precedenza, dopo una registrazione, è buona norma verificare se essa è avvenuta 
correttamente con un comando VERIFY. 

Il comando VERIFY (BASIC < 3.0) 

Il procedimento per verificare un programma sia da cassetta che da dischetto è 
analogo. Il calcolatore confronta quello che legge dalla memoria esterna con quello 
che è ancora nella sua memoria centrale. Se trova delle discordanze avvisa con un 
messaggio di errore. 

Verificate sempre un programma dopo la sua registrazione! Il formato del 
comando VERIFY è simile a quello di SAVE: 

VERIFY "dr: nome”, 8 

dove: 

dr è il pumero del drive 0 o 1 

nome è il nome del programma appena registrato 

Appena premete RETURN il calcolatore inizia il processo di verifica e vi avvisa 
con i messaggi SEARCHING FOR PROVA, VERIFYNG e OK. Se invece di OK 
appare una segnalazione di errore allora provate a riverificare e se l’errore permane 
allora dovete ripetere il SAVE e poi controllare con VERIFY. La registrazione di 
un programma, che non supera la verifica, non vi serve a nulla perchè non potrete 
mai leggere tale programma! 
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:AVE ' -3 PROVA" • : -•- SAVE il programma PROVA 

READY 

VERIFY "0 PROVA", 5 -•- Verifica PROVA 

SBARCHING EOF 0 PROVA 

VERIFYIMG — Programma verificato 


READV. 

« 


Un formato più sintetico per dare il comando VERIFY permette di usare un 
asterisco, invece del nome del programma, quando il comando viene dato subito 
dopo l’operazione SAVE: 

VERIFY 8 

COME CARICARE UN PROGRAMMA DA DISCHETTO CON IL BASIC 4.0 

A differenza di quanto avviene nel BASIC < 3.0, nell’ambito del BASIC 4.0 non è 
sempre necessario inizializzare il drive. 

Le operazioni necessarie per caricare un programma da un dischetto sono due: 

1. Listare la directory. 

2. Caricare il programma. 

Per provare queste operazioni potete usare un qualunque dischetto contenente 
dei programmi. Qui di seguito negli esempi noi usiamo il dischetto DEMO. 

Il BASIC 4.0 inizializza automaticamente il drive, prima di caricare un programma, 
mentre carica la directory. Tuttavia usando dischetti che abbiano lo stesso numero di 
identificazione (cioè il numero posto dopo il nome nella intestazione “header”) 
dovete effettuare manualmente la inizializzazione, se scambiate uno di questi dischetti 
con un altro, perchè il calcolatore non può sapere del cambiamento di dischetto. 


Caricamento della directory del dischetto (BASIC 4.0) 

Il comando DIRECTORY carica la directory del dischetto e la visualizza sul 
display. 

Battete quindi: 

DIRECTORY DO carica e lista la directory dal drive 0 
DIRECTORY DI carica e lista la directory dal drive 1 
DIRECTORY carica e lista le directory da ambedue i drive 

Se il drive non è specificato il sistema carica e lista le directory da ambedue i 
dischetti inseriti nei due drive. 
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Un esempio di richiamo e stampa di directory dal drive 0 il seguente: 


DIRECTORY DO 


6 UHlHsBUal 


5 

"UNIVERSA!. WEDGE" 

PRO 

8 

"UNIT TO UNIT" 

PRO 

3 

"CHANCE 8050 M 

PRO 

11 

"CQPV 2040 - 8050" 

PRO 

27 

"PRINTER DEMO" 

PRO 

12 

"SEGUENTIAL" 

PRO 

11 

"PERFORMANCE TEST" 

PPG 

5 

"CHECK DISK" 

PRG 

17 

"LOGIC DIAGNOSTIC" 

PRO 

1853 

BLOCKS FREE. 



READY. 

8 » 


Il comando DLOAD (BASIC 4.0) 

Il comando per caricare un programma da dischetto con il BASIC 4.0 è il 
seguente: 

DLOAD “nome del programma" carica dal drive 0 

DLOAD “nome del programma”, DO 

DLOAD “nome del programma”, DI carica dal drive 1 

Il nome del programma è obbligatorio e deve essere scritto tra virgolette. In 
mancanza del numero di drive il calcolatore impone il valore 0 e se il programma 
non è presente appare l’avviso ?FILE NOT FOUND. 

Provate queste istruzioni sul vostro calcolatore. Per esempio caricate il dischetto 
DEMO, o altro dischetto, nel drive 0 e battete: 


DIRECTORY D0 


Il cursore sparisce momentaneamente mentre il dischetto è inizializzato e la 
directory è caricata in memoria. 

Caricate quindi il secondo programma della directory (che può anche avere un 
nome diverso da quello che appare in questo testo): 


DLOAD ••'UHIT TO UNIT" 

Sullo schermo appariranno i messaggi di avviso di ricerca e caricamento del 
programma: 


DLOAD “UNIT TO UNIT",DO 

SEARCHINC POP UNIT TO UNIT 

LORDINO 

READY. 

* 
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Il comando LIST (BASIC 4.0) 

Questo comando è quello che già conoscete ed ha le stesse caratteristiche sia nel 
BASIC < 3.0 che nel BASIC 4.0 ed in tutte le versioni di DOS. 

Il comando RUN (BASIC 4.0) 

Per eseguire il programma battete RUN e poi premete RETURN. 

RUN 

Il comando LOAD & RUN (BASIC 4.0) 

Il comando sintetico LOAD & RUN carica e pone in esecuzione automaticamen¬ 
te il primo programma incontrato sul dischetto nel drive 0. Per dare questo 
comando basta premere il tasto RUN/STOP contemporaneamente al tasto SHIFT 
(SHIFT è il tasto che permette di ottenere i caratteri superiori della tastiera). 

Attenzione però che il comando LOAD & RUN è previsto solo per le versioni di 
BASIC 4.0 (versione 4.x). 

Per dare il comando LOAD & RUN premete allora il tasto RUN/STOP nella 
posizione superiore (shift). Sullo schermo appariranno alcuni messaggi prima 
dell’esecuzione del programma: 


DL"* 

SEfiRCHtNG POR O * 
LORDINO 


Premere il lesto RUN shiftato 


Inizio esecuzione del programma 


Ricordiamo che il tasto RUN può essere premuto solo se il calcolatore è in modo 
immediato. Diversamente se premuto durante l’esecuzione di un programma esso 
opera come un comando di STOP e ferma il programma. 

Come preparare un dischetto nuovo nel BASIC 4.0 

Anche nel BASIC 4.0 un dischetto nuovo deve essere “formattato” prima di 
poter essere usato. La procedura per formattare un dischetto nuovo, o riformattare 
uno vecchio è la seguente. 

Inserite il dischetto nel drive 0. 

Battete il comando di formattazione HEADER: 

HEADER "nome del disco”, Dx. 122 

dove: 

nome del disco è il nome che viene dato a quel particolare dischetto 
x è il numero del drive 0 e 1 

22 è un numero di identificazione di due cifre 

Provate a dare il formato al vostro dischetto con il comando HEADER: 

HERDER "VRK", D0, 101 
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Abbiamo dato al disco il nome YAK e lo abbiamo inserito nel drive 0. Se lo 
avessimo inserito nell’altro drive avremmo dovuto indicare DI invece di DO. Il 
numero di identificazione è 01, ma avremmo potuto usare qualunque altre due cifre 
o lettere. 

Quando premerete RETURN il calcolatore vi chiede una conferma (per evitare 
errori di identificazione del disco) ARE YOU SURE?. Se volete confermare battere 
Y per sì o N per no e poi RETURN. Se avete confermato il calcolatore svolge il suo 
lavoro e poi visualizza READY; se invece avete annullato il comando HEADER il 
calcolatore esce dalla procedura di formattazione. 

HERDER “VRK"i D0, 101 

ARE VOU SURE ?V •*- Premere Y per si 

REfiDV. 

■ 

A questo punto potete usare il dischetto come supporto di dati e programmi. 


Il comando DSAVE (BASIC 4.0) 

Questo comando permette la memorizzazione di programmi su dischetto. Esso deve 
essere dato in modo immediato ed ha le seguenti caratteristiche: 

DSAVE "nome del programma", Dx 

dove: 

nome del programma è appunto il nome del programma 

x è il numero di drive 0 e 1 

Il nome del programma è obbligatorio e deve essere racchiuso tra virgolette. Il 
numero di drive è opzionale e viene inteso come 0 se non specificato. 

Provate a memorizzare il programma PROVA, che in precedenza avete caricato 
dalla tastiera, sul drive 0. 

Battete infatti: 

DSfiVE “PROVA" .■ D0 

Appena premete RETURN il LED del drive si accende e il cursore sparisce dallo 
schermo. Alla fine ritornano READY e cursore: 

DSAVE "PROVA” .* D0 

READY. 

» 

Verificate ora il vostro programma. 


Il comando VERIFY (BASIC 4.0) 

Questo comando è identico a quello della versione BASIC < 3.0 per cui potete 
seguire le procedure già viste in precedenza. 
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IMPIEGO DELLE STAMPANTI CBM 


Le stampanti CBM svolgono una funzione complementare al display video in 
quando permettono di stampare programmi e dati su carta. Esse sono controllate in 
maniera analoga alle unità, a cassette o a dischetti, e ricevono i comandi o in modo 
immediato o come istruzioni di un programma. Descriviamo ora unicamente i 
comandi in modo immediato rimandando al capitolo 6 i comandi da programma. 
Precisiamo ancora che l’impiego delle stampanti è eguale per ambedue le versioni di 
BASIC < 3.0 e 4.0. 

Il comando OPEN 

Prima di mandare dati a una stampante è necessario stabilire una linea di 
comunicazione logica tra essa e il calcolatore. Come già visto con altre periferiche 
questo si ottiene con l’istruzione OPEN: 

OPEN X.4 

dove: 

x è un intero tra 1 e 255 

Ecco alcuni esempi: 

OPEN 1,4 
OPEN 4.4 
OPEN 250,4 


Il comando CMD 

Qualora la stampante sia stata “aperta”, i testi in uscita le possono essere 
mandati con il comando: 

CMD 1 

Ovviamente il numero 1, o un altro, deve corrispondere al numero x che si è dato 
nella precedente istruzione OPEN. Se viene erroneamente usato un numero diverso 
apparirà il messaggio 7FILENOT OPEN ERROR e si dovrà quindi ripetere l’aper¬ 
tura della stampante con OPEN e ribattere CMD. 

Ecco alcuni esempi di comandi PRINT: 

OPEN 1,4 CMD 4 
PRINT ".TISHNICK" 


ClPEN 2,4 

CMD 2 . “MV PET BITES" 


OPEN 3-4 
PRINT43, "54321" 
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Uscita di testi su stampante 

Quando la stampante è stata correttamente aperta essa è pronta per stampare 
testi. Dobbiamo allora dare in modo immediato l’istruzione PRINT per stamparei 
testi specifici. 

Controllate allora che la stampante sia accesa, che abbia il nastro e che vi sia la 
carta. Date le istruzioni OPEN e CMD: 

OPEN 1,4 CMD 1 

Al comando RETURN la testina andrà a capo e si posizionerà a sinistra. Potete 
allora stampare qualcosa per prova, ma sempre tra virgolette: 

PAINT "CARLO ALBERTO" 


Al comando RETURN il cursore sparisce dallo schermo e la stampante batte: 


READY 

CARLO ALBERTO 


Quando stampate in modo immediato, la prima riga porta il messaggio READY 
mentre sulla successiva appare il vostro testo. Al termine la testina va a capo e 
riappare il cursore sullo schermo. A questo punto potete stampare altre righe. 
Ecco alcuni altri esempi: 

Display Stampante 


OPEN 

PRINT 

PRINT 

PRINT 


1.4 CMC 1 
"CARLO ALBERTO" 

" 1234567890 " 

"IL NONE ALLA ROVESCIA E OTREBLA ÙLRHC 




CARLO ALBERTO 

READY 

1234567850 

READY 

IL NOME ALLA ROVESCIA 
E OTREBLA OLRAC 


Come listare un programma sulla stampante 

Per listare un programma su stampante battete i comandi di apertura OPEN e 
CMD e poi semplicemente LIST: 

OPEN 1,4 CMD 1 
LIST 


LIST può ovviamente essere integrato con i suoi parametri di linea. Il vostro 
programma PROVA può essere così stampato: 

OPEN 1,4 CMD 1 
LIST 

10 FOR 1=1 TO S00 
20 PRINT M fl", 

30 NEXT I 
40 PRINT UFFft! 

50 END 
RERDV. 

.4 
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Il comando di chiusura CLOSE 


La linea logica tra calcolatore e stampante deve essere chiusa quando si sono 
finite le operazioni di stampa. Il comando per questa chiusura è CLOSE: 

CLOSE 1 

Il numero dopo CLOSE deve essere lo stesso della corrispondente OPEN. Per 
esempio: 

OPEN 1,4 OPEN 15,4 

CLOSE 1 CLOSE 15 

Attenzione però che prima di chiudere dovete aver dato almeno un ordine 
PRINT # per chiudere correttamente. Ecco alcuni esempi validi ed errati: 


Valido 


Errato 


OPEN 5.4 

PRINT#5,"BUON GIORNO" 
CLOSE 5 

OPEN 5.4 

CMC 5,"BUON GIORNO" no 
PRINTS5 CLOSE 5 

OPEN 5.4 

CMD 5."BUON GIORNO” no 
PRINT#5."BUON GIORNO" 
CLOSE 5 

OPEN 5,4 

PRINT#5,"BUON GIORNO" no 
CMD 5,"BUON GIORNO" 
PRINT#5 CLOSE 5 


OPEN 5,4 

CMD 5,"BUON GIORNO" 
CLOSE 5 

OPEN 5,4 

CMD 5,"BUON GIORNO" 
PRIHT#5,"BUON GIORNO" 
PRINT#5 CLOSE 5 

OPEN 5,4 

PRINT#5,"BUON GIORNO" 
CMD 5,"BUON GIORNO" 
CLOSE 5 
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CAPITOLO 3 


ELABORAZIONE DI TESTI “EDITING” 


I calcolatori CBM permettono di visualizzare sullo schermo i caratteri così come 
sono battuti sulla tastiera. È possibile inoltre elaborare o modificare (“editing”) in 
modo immediato qualunque testo appaia sullo schermo. 

L’elaborazione dei testi sullo schermo o “editing” è una delle risorse più impor¬ 
tanti dei calcolatori CBM. Potete modificare con estrema semplicità ed efficienza il 
vostro testo sullo schermo mediante l’editor che descriviamo in questo capitolo. Se 
trovate delle difficoltà a comprendere quanto spieghiamo adesso leggete prima il 
capitolo 4 “Programmazione dei calcolatori CBL” e poi ritornate a questo capito¬ 
lo. Nel capitolo 4 vi daremo infatti i concetti fondamentali per programmare nel 
linguaggio BASIC. 

II programma editor permette di muovere sullo schermo il cursore in quattro 
direzioni e i caratteri possono essere cancellati, modificati o inseriti in qualunque posi¬ 
zione. 

I comandi del cursore sono già stati descritti nel capitolo 1 al paragrafo “Gruppi 
di tasti delle tastiere CBM”. Il tasto CLEAR SCREEN/HOME muove il cursore 
alla prima posizione in alto a sinistra e può anche cancellare tutto lo schermo. I tasti 
CURSOR UP/DO WN e CURSOR LEFT/RIGHT spostano il cursore verso l’alto 
o il basso e verso sinistra o destra. Il tasto INSERT/DELETE permette di inserire o 
cancellare un singolo carattere. 

ELABORAZIONE DEL TESTO SULLA LINEA CORRENTE 

Spesso, mentre inserite una riga di testo, potete accorgervi di aver commesso un 
errore. E possibile correggere subito l’errore con i comandi CURSOR LEFT e 
DELETE. 

Facciamo un esempio per illustrare come funziona l’“editing” su una riga 
battendo questo testo: 


MIO CARO RNICO 


ANICO è ovviamente errato e vogliamo quindi cambiare la N con M. 

Con il tasto CURSOR LEFT spostiamo il cursore all’indietro verso sinistra senza 
modificare quanto già scritto. Con il tasto DELETE cancelliamo invece, sempre 
all’indietro, tutto il testo sino al carattere errato N. La scelta tra un metodo e l’altro 
dipende dalla lunghezza della riga e di quanti caratteri verso sinistra dovreste 
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spostarvi. È ovvio che, usando, DELETE, dovete ribattere tutti i caratteri a destra 
del punto di correzione con il pericolo quindi di commettere nuovi errori. In tal 
caso conviene usare il comando CURSOR LEFT. 

Spostamento all’indietro con il tasto CURSOR LEFT 

Battete questo testo senza premere RETURN: 

filo CARO AH ICO» 


Il cursore deve essere spostato all’indietro verso la N che sarà cambiata in M così 
che ANICO divenga AMICO. Per fare questo premete SHIFT e contemporanea¬ 
mente CURSOR LEFT tante volte quante è necessario per portare il cursore sopra 
la lettera N. 

Se avete un calcolatore CBM 8000 il cursore si muove automaticamente per tutto il 
tempo che tenete premuto il suo tasto a differenza delle altre tastiere ove è necessario 
premere e rilasciare ripetutamente. 

MIO CARO ANICO $ —Premere CURSOR LEFT 

MIO CARO ANICO-- Premere CURSOR LEFT 

MIO CARO ANICO-- Premere CURSOR LEFT 

MIO CARO ANICO-- Premere CURSOR LEFT 

MIO CARO ANICO 

Una volta che il cursore è sopra la N battete una M che subito sostituirà la vecchia 
lettera mentre il cursore si sposterà di un carattere a destra. Questo modo di operare 
si dice appunto “per sovrapposizione”. Sullo schermo avremo quindi il nostro testo 
corretto: 

MIO CARO AMICO 

Potete ora riportare il cursore a destra premendo il tasto CURSOR RIGHT (senza 
SHIFT) e battere un’ulteriore parte della riga oppure, se avete finito, battere 
RETURN. Provate in ambedue i casi. 

Fate però attenzione che solo con il comando RETURN una riga che avete battuto e 
corretto viene accettata dalla memoria del calcolatore. Se per caso avete mosso il 
cursore con i comandi HOME, CLEAR SCREEN o CURSOR UP/DOWN potete 
essere tratti in inganno perchè vedete la riga corretta sullo schermo, ma essa non è 
stata ancora registrata nel calcolatore. Ricordate quindi che per confermare una 
riga dovete sempre battere RETURN. 

Spostamento all’indietro con il tasto DELETE 

Caricate ancora l’esempio di prima senza premere RETURN: 

MIO CARO ANICO* 

Premete DELETE cancellando all’indietro il testo fino alla lettera errata. 
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Quando il cursore si posizionerà nel punto ove prima c’era la lettera errata N, 
battete allora la M. 


HO CARO ANIC0«~— Premere DELETE 

MIO CARO ANIC»-.- Premere DELETE 

MIO CARO AHI»-- Premere DELETE 

MIO CARO ANS8— Premere DELETE 

MIO CARO A» 


Per ripristinare il testo dovete ribattere i caratteri che avete cancellato, ma 
attenzione a non fare più errori di quanti appena corretti. Alla fine premete 
RETURN per rendere permanenti in memoria i cambiamenti fatti. 


MIO CARO H» - - Battere M 

MIO CARO AMSS -- Battere I 

MIO CARO AMI» -- Battere C 

MIO CARO AMIC* -— Battere 0 

MIO CARO AMICO» 


Spostamento e cancellazione con il tasto DELETE 

Il tasto DELETE può essere usato anche per spostare di una posizione verso sinistra 
un testo e contemporaneamente cancellare il carattere posto alla sinistra del cursore. 
Supponiamo di avere battuto due volte la I: 

MIO CARO AMI ICO:* 


Dobbiamo quindi cancellare una I e compattare la parola AMICO. Supponiamo di 
cancellare la prima delle due I. Invece di cancellare il testo sino alla prima I 
muoviamo il cursore verso sinistra, con il tasto CURSOR LEFT, fino alla seconda 
I. 


MIO CARO AMIICO 

Battiamo allora DELETE che per l’appunto cancella la lettera immediatamente 
alla sua sinistra. Con questo comando si ottiene anche che tutto il testo alla destra si 
sposti verso sinistra di un carattere, riempiendo quindi lo spazio vuoto che sarebbe 
rimasto. 


'''{9 ^NI — Posizione del cursore prima di DELETE 

MIO CARO AMICO --Dopo OELETE 

Per confermare questa riga di testo potete prima spostare il cursore a destra con 
CURSOR RIGHT e poi battere RETURN, oppure battere subito RETURN. 
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Spostamento del testo con il tasto INSERT 

Il tasto INSERT apre uno spazio nel testo nella posizione in cui è il cursore e sposta, 
di un carattere verso destra, tutta la parte della riga posta dopo il cursore. 

Per mostrare quanto detto sopra provate a battere un testo tralasciando un 
carattere: 

flIO CARO AflCOiB 

la 1 che manca può essere inserita in vari modi. 

Potete usare il tasto DELETE e cancellare tutto il testo sino alla I che manca e poi 
ribattere tutto come abbiamo già visto precedentemente. Questo metodo è sconsi¬ 
gliabile se si deve cancellare più di qualche carattere, perchè è facile fare nuovi 
errori nella fase di ribattitura del testo. E meglio usare allora il tasto INSERT che 
non richiede cancellature. 

Prima di toccare il tasto INSERT, muovete il cursore verso sinistra fin sopra la 
posizione dove dovete inserite il nuovo carattere e cioè sul carattere che sarà 
contiguo a destra a quello da inserire. 

dio CARO AMCO -— Posizione del cursore prima di INSERT 
t- Inserire una I 

Nel nostro esempio con il tasto CURSOR LEFT spostate il cursore sulla lettera C: 

l’Ilo CARO Anco*- —Premere CURSOR LEFT 

110 CARO AMC0 —- Premere CURSOR LEFT 

AIO CARO AMCO 

Premete allora INSERT una volta così che apparirà uno spazio tra la M e la C 
mentre le lettere CO si sposteranno a destra. Il cursore invece rimarrà fermo. 

dio CARO AdiSSCO - —Dopo aver battuto INSERT 

Ora potete battere la I: 

dIO CARO AMICO - —Batterei 

Per chiudere questa riga potete infine premere RETURN subito o dopo aver 
spostato il cursore verso destra. 

Se invece di un solo carattere dobbiamo inserire in un testo una intera parola 
dovremo battere più volte INSERT così da creare lo spazio sufficiente perla nuova 
parola. Proviamo per esempio a battere: 

SAN CAMPANARO* 

e ci accorgiamo di aver dimenticato MARTINO. 

, : AN CAMPANARO* 

MARTINO 
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Con il tasto CURSOR LEFT spostiamo allora il cursore sino alla C: 

SAN CAMPANARO» 

SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 
SAN CAMPANARO 

Premiamo quindi INSERT otto volte per fare posto alla parola MARTINO più uno 
spazio: 


san 

CAI 

MPAHARO -- 

Premere 

INSERT 

SAN 

SCAMPANARO -- 

Premere 

INSERT 

SAN 

» CAMPANARO -- 

Premere 

INSERT 

SAN 

« 

CAMPANARO -- 

Premere 

INSERT 

SAN 

* 

CAMPANARO 



SAN 

« 

CAMPANARO 



SAN 

$ 

CAMPANARO 



SAN 

M 

CAMPANARO 



SAN 

SS 

CAMPANARO 




E infine battiamo la parola MARTINO: 

SAN » 

CAMPANARO 

SAN m 

CAMPANARO 

SAN MA» 

CAMPANARO 

SAN MAR» 

CAMPANARO 

SAN MARTS 

CAMPANARO 

SAN MARTI» 

CAMPANARO 

SAN MARTIN» CAMPANARO 

SAN MARTINOHCAMPANARO 

Per confermare il testo premiamo 

RETURN. 


Ci sono alcune regole da ricordare quando si lavora con il trasto INSERT: 
muovere sempre il cursore fino dove l’inserimento deve iniziare. Il carattere sotto il 
cursore si sposterà a destra diventando il primo carattere dopo Pinserimento 

Quando inserite più caratteri premere tante volte INSERT quanti sono i ca¬ 
ratteri da inserire più gli spazi. 

ELABORAZIONE DI TESTI RACCHIUSI TRA VIRGOLETTE 

Nel caso che il testo sia racchiuso tra virgolette, la sua elaborazione o “editing” 
dovrà avvenire con procedure diverse in quanto le virgolette stesse sono interpretate 
dal calcolatore come l’inizio e la fine di una stringa. 

Come abbiamo già detto nel capitolo 2, ogni testo battuto dopo un numero 
dispari di virgolette viene riconosciuto come una stringa. Questo vale anche per un 
comando dato al cursore che apparirà sullo schermo con un simbolo speciale, ma 
non muoverà il cursore. Una stringa prima di essere elaborata, deve essere chiusa 
con le seconde virgolette oppure premendo direttamente RETURN. Una volta 
fuori dalla stringa i tasti del cursore operano normalmente. Nei calcolatori CBM 
8000 il comando ESC cancella gli effetti di un numero dispari di virgolette. 

Diamo un esempio di come operare all’interno di una stringa: 

PRINT "MIO CARO AMICO" 

Questa è una istruzione di stampa che farà apparire sullo schermo la stringa di 
caratteri MIO CARO AMICO quando si prema RETURN. 
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Supponiamo, anche in questo caso, di aver commesso un errore: 

PRIHT "MIO CARO AMIXOS 

ove appunto si è battuto X invece di C. 

Per correggere l’errore potremmo pensare di spostare il cursore con il tasto 
CURSOR LEFT, ma ci accorgeremmo subito che invece di far muovere il cursore 
vedremmo apparire sullo schermo un carattere speciale incorporato nella stringa. 
Solo quando l’istruzione PRINT sarà eseguita i comandi di cursore avranno effetto 
e sposteranno il cursore. 

=RINT "MIO CARO AMIXOIW*-.— Premuto 2 volte 
Nella Tabella 3-1 sono illustrati i simboli speciali che rappresentano i comandi di 
cursore in una stringa. 

È possibile evitare di “programmare” i comandi di cursore in una stringa 
chiudendola con le sue virgolette prima di iniziare l’editing. 

Ritorniamo al nostro esempio; prima di toccare i comandi del cursore completia¬ 
mo il testo della stringa e chiudiamo le virgolette: 

PRINT "MIO CARO AMIXO" 


Tabella 3-1: Rappresentazione dei tasti di cursore nelle stringhe 


Funziona 


Tatto 


Simbolo nella atrlnga 


DELETE 


INSERT 


Home Cursor 


Clear Screen 


Cursor Down 


Cursor Up 


Cursor Righi 


Cursor Left 


Shift 


Shift 


INST 

DEL 


INST 

DEL 


cui 

screen 

HOME 


cm 

SCREEN 

HOME 


A 

CURSOR 

. A j 


Shift 


A 

CURSOR 

. A , 


CURSOR 


Shift 


(Reverse shift TI 


Si (Reverse S) 


n (Reverse Shift S) 


(I (Reverse Q) 


T (Reverse Shift Ql 


Il (Reverse ) I 


Il (Reverse Shift j ) 
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A questo punto possiamo usare il cursore come abbiamo visto in precedenza perchè 
non siamo più dentro la stringa. 

SPINI ">1I0 CAPO AM 1X0“ 18 -—Premere CURSOR LEFT 

spi NT "MIO CAPO AMINO" -- Premere CURSOR LEFT 

spi NT "MIO capo SMI: 0" -- Premere CURSOR LEFT 

spini "MIO CaPO SMINO" -- Premere CURSOR LEFT 

Battete allora la C sopra alla X e terminate la riga con RETURN. Sullo schermo 
appare infine la stringa corretta: 

spIHT "MIO capo AMIXO" -—Battere c 

SRINT "MIO capo SM ICO" -—Premere RETURN 

MIO CaPO SMICO -- Esecuzione della PRINT 


READY 

* 

Esiste un altro metodo per corregere l’interno di una stringa. Battete RETURN 
come se la stringa fosse corretta e per il momento non preoccupatevi di come il 
calcolatore risponde ai vostri comandi. A noi interessa perora correggere il contenu¬ 
to della stringa. Al comando RETURN quindi il cursore va a capo dopo READY. 
Spostate allora verso l’alto il cursore con il tasto CURSOR UP e poi verso destra 
con CURSOR RIGHT. Proviamo nel nostro esempio: 


SRINT "MIO CAPO AMIXO" 


Premiamo RETURN: 


SRINT “MIO CARO AMIXO "-—Premere RETURN 

MIO CARO AMIXO 


READY 

* 


Ignoriamo la risposta sullo schermo e premiamo CURSOR UP varie volte sino alla 
riga originaria. 


Premere CURSOR UP 
Premere CURSOR UP 
Premere CURSOR UP 
Premere CURSOR UP 


C—RRINT "MIO CARO AMIXO" 
j—*- MIO CAPO AMIXO 

JH READY 

I— 8 


Portiamo ora il cursore con CURSOR RIGHT fin sopra la X e finalmente battiamo 
la C. 

RRINT "MIO CAPO AMIXO" 

RRIHT "MIO CARO AMICO" 


Da ultimo premete RETURN e di conseguenza avrete sullo schermo la vostra 
stringa corretta: 


SRINT "MIO CARO AMICO” 

MIO CAPO AMICO-- RETURN premuto 


READY 

i 
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I comandi CURSOR LEFT, CURSOR RIGHT e CURSOR UP/DOWN se dati 
all’interno di una stringa fanno parte della stringa stessa. 

I comandi INSERT e DELETE si comportano invece diversamente. 

II comando INSERT entra a far parte di una stringa come qualunque altro carattere 
con il simbolo (Q]). Ma quando il comando PRINT è eseguito e la stringa visualizza¬ 
ta, INSERT non ha più effetto sullo schermo. 

Il tasto DELETE è l’unico comando del cursore che non risenta della presenza delle 
virgolette. Possiamo quindi correggere il nostro testo usando DELETE come 
abbiamo già illustrato in precedenza. 

jrIMT "MIO CARO fiMIKC "*.—.Premere DELETE 

PRIHT "MIO CAPO AMI:‘Osi - Premere DELETE 

*PINT "MIO CAPO AM IMS - Premere DELETE 

: PINT "MIO CAPO AMI » Premere DELETE 


ELABORAZIONE (EDITING) DELLE RIGHE DI UN PROGRAMMA 

E preferibile che rimandiate la lettura di questo paragrafo sino a che non 
conoscerete la programmazione BASIC. 

In questo paragrafo spieghiamo come duplicare righe di programma simili modifi¬ 
cando il loro numero di riga. 

Duplicazione delle righe 

Spesso in un programma vi sono righe simili o identiche per cui può essere molto 
utile duplicare una riga iniziale invece di ribatterla varie volte. Ricordiamo che ogni 
riga di programma, nei calcolatori CBM, deve avere un suo diverso numero. 

Basterà quindi cambiare il numero di riga per avere una nuova riga senza doverla 
ribattere. 

Carichiamo la seguente riga di programma: 


10 PRINT 


Supponiamo di aver bisogno di altre cinque righe eguali a questa. Ovviamente 
potremmo ribatterla cinque volte con una diversa numerazione, ma invece vi 
mostriamo come è possibile, solo cambiando il numero di riga, ottenere le nostre 
nuove righe. 

Battete allora la riga originale (se il programma è già in memoria allora richiama¬ 
te la vostra riga semplicemente con il comando LIST seguito dal numero di quella 
riga). Portate con il tasto CURSOR UP il cursore sopra la cifra iniziale del numero 
di riga. Battete ora sopra il vecchio numero il primo dei nuovi: 

i'0 PRINT -— Battere il numero 20 sopra al 10 
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Appena una nuova riga è pronta memorizzatela con RETURN. Se provate a listare 
il programma vedrete che ambedue le righe sono presenti: 

20 PRINT 
LIST 

IO PRINT 
20 PRINT 
RERPV. 

« 


Proseguite così per formare tutte le nuove righe. 


Elaborazione di righe slmili 

Per elaborare righe di programma simili procediamo in maniera analoga a 
quanto visto per duplicare righe eguali. 

Listate la riga da duplicare specificando il suo numero e portate il cursore al suo 
inizio. Battete il nuovo numero di riga e quindi fate le modifiche necessarie con i 
comandi che già conoscete CURSOR RIGHT, INSERT o DELETE. Premete 
infine RETURN in modo che la nuova riga vada in memoria. Non preoccupatevi se 
non vedete più sullo schermo la vecchia riga perchè essa è sempre in memoria e 
potete leggerla in qualunque momento con un comando di LIST. 

Per maggior chiarezza facciamo un esempio. Supponiamo di voler scrivere un 
programma come questo: 


10 PRINT 
20 PRINT “ »" 

30 PRINT “ #" 

40 PRINT “ *" 

50 PRINT " *“ 


Dal momento che tutte le righe sono simili duplicheremo la prima quattro volte. 

Carichiamo la riga 10 e premiamo RETURN. Per creare la riga numero 20 
spostiamo il cursore in alto sopra il 10 e battiamo 20. Poi spostiamo il cursore a 
destra con CURSOR RIGHT sino sopra l’asterisco (*) e premiamo INSERT per 
creare uno spazio e muovere il resto della riga verso destra. Con RETURN 
confermiamo infine la nuova riga. Sebbene la riga numero 10 non sia più presente 
sullo schermo essa è sempre in hiemoria e può essere richiamata, come già detto, 
con il comando LIST: 


20 PRINT M #"-«— Istruzione 20 creata dalla 10 
LIST 


10 PRINT 
20 PRINT " * M 
REfìDV. 

m 

Le righe 30, 40 e 50 saranno scritte nella stessa maniera della 20 muovendo prima il 
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cursore in alto e poi modificando sia il numero di riga che il testo. Alla fine sullo 
schermo dovrà rimanervi: 


50 PRINT “ *'* 

Controlliamo infine che tutto sia memorizzato correttamente listando il program¬ 
ma: 


50 PRINT - *” 

LIST 


10 PRINT 
i-0 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
REftDY. 




*" 

* H 




*•* 


Come avete visto righe simili possono essere facilmente duplicate ed elaborate 
con l’editing. 


SVILUPPI DELL’ELABORAZIONE DEI TESTI NEL BASIC 4.0 

A differenza delle versioni precedenti, nel BASIC 4.0 sono previste delle ulteriori 
possibilità di editing. Tali facilitazioni sono generalmente impiegate all’interno di 
un programma e quindi non si usano in modo immediato. Esse saranno descritte 
nel capitolo 5. 
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CAPITOLO 4 


PROGRAMMAZIONE DEI CALCOLATORI 

CBM 


In questo capitolo iniziamo a descrivere il linguaggio BASIC. 

Il BASIC è un linguaggio di programmazione e come qualunque altro linguaggio è 
composto da un insieme di istruzioni. Una successione finita di tali istruzioni costitui¬ 
sce un programma. La scelta e l’ordine con cui vengono scritte le istruzioni dipende dai 
compiti che volete assegnare al vostro calcolatore. 

Per insegnarvi a programmare in BASIC potremmo, a questo punto, darvi la 
spiegazione di ogni istruzione una alla volta. Ma questo metodo sarebbe molto 
tedioso e otterremmo solo che voi apprendiate molte regole di sintassi senza darvi 
metodi pratici di programmazione. 

Abbiamo cosi rinviato al capitolo 8 la definizione rigorosa di ogni istruzione BASIC 
dei calcolatori CBM; in questo capitolo cerchiamo invece di mostrarvi, con esempi 
pratici, come affrontare la stesura di un programma. 

MODI DI PROGRAMMAZIONE: IMMEDIATA E DIFFERITA 

Un calcolatore CBM appena viene acceso si pone nello stato di programmazione 
detto “modo immediato”. J.n tale modo di lavoro esso funziona come una calcolatrice 
tradizionale e cioè esegue subito le istruzioni BASIC appena premete il tasto 
RETURN. Provate questi esempi aritmetici: 


T '4.5+6. 42 

10.92 

Addizione 

PERDV. 

-•500-410 

90 

Sottrazione 

RERDV. 

■>fT*2 

6.28318531 

Moltiplicazione 

PERDV. 

?100/3 

33.3333333 

Divisione 

RERDV. 

?6/2*4-1 

Espressione 


11 

Vedrete infatti che il risultato viene visualizzato subito sulla riga successiva a 
quella dell’istruzione. 
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Nel secondo modo di lavoro detto “differito" o “a programma” il calcolatore prima 
riceve tutte le istruzioni e poi le esegue solo se gli date il comando di esecuzione RUft 
(“gira!”, “via!”). 

Programmi e istruzioni 

I cinque esempi di istruzioni in modo immediato dati sopra sono in realtà cinque 
mini-programmi. Più in generale un programma è composto da molte istruzioni 
così da eseguire un lavoro intero e ben definito (si dice che i calcolatori implementa¬ 
no l’esecuzione di algoritmi). 

Negli esempi di sopra i programmi sono costituiti da una sola istruzione, ma 
normalmente un programma comprende decine e anche centinaia di istruzioni. 

Esecuzione di un programma 

Si dice che un calcolatore esegue un programma (talvolta in gergo si dice “fare il 
run” oppure “lanciare” un programma) quando svolge le operazioni che sono previste 
dal programma stesso. 

Un programma in modo immediato viene eseguito appena premuto il tasto 
RETURN. 

Un programma in modo differito viene invece eseguito quando si sia data la 
particolare istruzione RUN (vedi capitolo 1). 

Linee di programma 

Se lavorate in modo differito ogni linea (o riga) di programma ha un suo proprio 
numero; se questo numero manca allora il calcolatore presume che la linea d’istruzione 
sia data in modo immediato. 

Una linea di programma può essere lunga sino a 80 caratteri. 

Se avete un display con schermo a 80 colonne su una sua riga potrete visualizzare 
una linea intera di programma. Se invece lo schermo ha 40 colonne una linea di 
programma sarà riportata su due righe. 

Se una linea del vostro programma è più corta di 80 caratteri allora essa ha 
termine quando premete il tasto RETURN. Talvolta è consentito andare oltre gli 80 
caratteri, ma per sicurezza terminate sempre le vostre linee di programma prima 
dell’80-esimo carattere con il comando RETURN. 

Sia in modo immediato che in quello differito una linea di programma può 
contenere più di una istruzione purché in totale essa non sia lunga più di 80 
caratteri. 

PROGRAMMI CON UNA SOLA LINEA IN MODO IMMEDIATO 

Un programma in modo immediato deve stare in una unica linea poiché esso viene 
eseguito appena si preme il tasto RETURN. Esso può contenere però più di una 
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istruzione per cui si possono scrivere dei programmi in modo immediato molto 
interessanti. Vediamo alcuni esempi. 

Abbiamo già visto che l’istruzione PRINT può essere abbreviata battendo il 
carattere punto interrogativo. E sappiamo anche che tale istruzione fa apparire un 
testo sullo schermo del display. Consideriamo allora queste due istruzioni in modo 
immediato: 


H=fr*2' 

READY. 

?fì 

€.28318331 

La prima A = n * 2 non fa apparire niente sullo schermo perchè non contiene 
l’istruzione ?, ma fa eseguire un calcolo all’interno del calcolatore, la seconda 
istruzione fa apparire il risultato sullo schermo. 

Quando più istruzioni sono scritte su un’unica linea, esse devono essere separate dal 
carattere due punti (:). 

Così le due istruzioni: 


?Fl 


possono essere condensate in un’unica linea: 


A=ir*2 ?fì 


che può essere considerata come un programma dato in modo immediato. 

Siccome una linea può contenere fino a 80 caratteri è facile immaginare quante 
istruzioni essa può contenere. Per esempio considerate la linea seguente: 


FOR 1=1 TO 300 .‘EXT T'VFFfiS* 


Anche se non vi è possibile per ora comprenderne esattamente il significato 
provate a batterla sulla vosta tastiera. Appena batterete poi il comando di fine riga 
RETURN vedrete apparire sullo schermo 20 righe di 40 caratteri (se lo schermo è a 
40 colonne) tutte riempite con la lettera A e alla 21-esima riga l’esclamazione 
UFFA! 
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FOR 1=1 TO 300 -"fi' 1 ; «EXT ? 11 UFFA! 



RRRRfiflRRRRAfìfìRRARRRRfifìAflfìRRflRRARRRRRRRRR 



•jFFfl ! 

RERDV. 

* 


La linea di programma rimane visibile perchè in totale vengono occupare esatta¬ 
mente le 25 righe dello schermo. Se avete invece un display con schermo a 80 
colonne la lettera A apparirà su 10 righe lunghe 80 caratteri e la linea di programma 
sarà sempre visualizzata sopra le dieci righe di lettere A. 

Ri-esecuzione di un programma in modo Immediato 

Al termine dell’esecuzione di una linea di programma in modo immediato appare 
il messaggio READY mentre il cursore ritorna all’inizio della riga successiva. 

Se ora desiderate eseguire nuovamente la stessa linea è sufficiente che voi 
riportiate il cursore all’estremo destro di questa linea e ribattiate RETURN. Con il 
BASIC CBM voi potete infatti rieseguire una qualunque linea purché essa sia presente 
sullo schermo. Per poter fare questo basta che spostiate il cursore, con i suoi 
comandi, al termine della riga è poi battiate RETURN. Mentre spostate il cursore 
potete anche modificare il testo della linea come in una qualunque operazione di 
editing. 

Nel nostro esempio provate a premere HOME per portare il cursore in alto a 
sinistra poi spostatelo a destra di 15 caratteri sopra la A e battete un altro carattere 
come per esempio il DIAGONAL QUARTER-BLOCK SOLID (tasto ? shiftato). 
Poi battete RETURN e vedrete così visualizzare sullo schermo il nuovo carattere. 
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.-OR :=i T0 ?C0 ?"V; ' mE>T' ?' M JFFP! H 

SSVW.VrtWVVVVVVWVVVWyVSWVWyW.VW. 

-rtVVVWVWVVWV^SWWVVVVVVVVWWWbWVVS-rt 

vw^vvwvsv^vywrfwrtwivwwyvrtvrtv.% 

SVV%VWiVWVVVW^.VftV.VWyVA%VSVASV. 

%vswwwww^% , ysvbVAssvAV.v.vrtv.sv. 

wwvwvmvwvwvvvwwwmvvwvwvm 

VVWVWVWVVWVWWVVVVVV«%VVVVWV*W.V.V.% 

V.VVWWWWiVbVVWVVVWrtW.VSW.W.V.V. 

VV.VAViVWMV*SVViVAV^. , .V. , .*. , . , .%V .*.*. , 1 


VVWVWVVW.VVVSVMWSVMV.SW.V.SV.*. 

nwwb 

■v.v.v.v. 

VWVWM%vyw.v,v. 

VWVWWWW\WWVWVb>%W.WrtV.%WdV.V.%% 

■V. 

wuvwwuww 

.V.V.V. 

,w. 

VFFri ! 


READY. 

f» 


Modifica di un programma in modo immediato 

Se volete continuare ad eseguire sempre la stessa riga di programma, ma con altri 
caratteri, provate allora a modificarla in modo che risulti così: 

^CP 1 = 1 TO 3CC 'T-r: ‘iHMT 

< 

Per passare dalla vecchia riga alla nuova potete fare così: 

1. Date il comando HOME per portare il cursore sopra la F di FOR ( m è il simbolo 
del cursore): 

FOR ro $oo : ?*v; • ?c:;t -«offri* 


2. Premete INSERT sette volte: 

FOR 1*1 T0 soe ?" V ; mEMT ' C""JFFfl I “ 

3. Battete i sette caratteri: C$ = “W”: 

Cf=“HV FOR 1=1 IO SOO '"V; ;E::T ?*UFFR!“ 

4. Battete CURSOR RIGHT 14 volte per portare il cursore alla destra del primo ? 

:f="W" FOP 1=1 T0 EOO nEN'T ?'". , FFfl!" 

5. Battete i due caratteri C$: 

:*=-u" - for :=i ro oac oc*-*; • ?“uffr!" 
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6. Per togliere le due virgolette che sono rimaste, spostate a destra il cursore con 
CURSOR RIGHT 

:*="ir por :*i to eoo -c f, me:-t -"l'ffp»? 

e poi battete DELETE: 

:r="U" top :=j roseo 'cjj -jest- •r ,, L , PFfl!" 

Dopo tutti questi cambiamenti avete la nuova riga e per eseguirla battete 
RETURN. Se volete cambiare il carattere che viene visualizzato premete HOME e 
portate il cursore sul vecchio carattere; battete il nuovo carattere e infine RETURN. 

Le spaziature In una linea non sono necessarie 

Non preoccupatevi di porre molta attenzione alle spaziature in una riga! L’inter¬ 
prete BASIC CBM riconosce gli elementi di un’istruzione anche se sono attaccati tra 
loro. Per esempio: 


può essere scritta: 


oppure anche: 


110 FOP 1=1 to no 


no fop 1 = 1 roiio 


2 IO FùF I ■=! T0* 10 


Analogamente potete aggiungere qualunque ulteriore spaziatura, ma non all’interno 
di parole proprie del linguaggio BASIC. Potete scrivere GOTO oppure GO TO, ma 
non potete scrivere F OR per FOR. Le uniche spaziature che mantengono inaltera¬ 
ta la loro posizione sono quelle poste in una stringa tra virgolette. In altre parole si 
può dire che le spaziature poste in una istruzione hanno lo scopo fondamentale di 
rendere l’istruzione stessa più facilmente comprensibile. 


ELEMENTI DI UN LINGUAGGIO DI PROGRAMMAZIONE 


Le istruzioni di un programma devono essere scritte rispettando un insieme ben 
definito di regole che prende il nome di “sintassi”. 

Ogni linguaggio di programmazione ha la sua specifica sintassi ed è così possibile 
definire un gran numero di linguaggi di programmazione. I calcolatori CBM 
impiegano un unico linguaggio residente, detto BASIC, e tutte le regole che vi 
descriviamo in questo libro costituiscono appunto la sintassi del BASIC CBM. 
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I linguaggi di programmazione assomigliano, in un certo senso, alle lingue 

rlate e anche tra loro si possono individuare alcuni linguaggi più “parlati” come 
il FORTRAN, il COBOL, il BASIC, il PASCAL, l’APL, il PL/M, il PL-1 e il 
poRTH. Forse in totale, compresi anche i linguaggi meno noti, essi sono più di un 
centinaio. 

Purtroppo i linguaggi di programmazione assomigliano alle lingue parlate anche 
per le derivazioni“dialettali”. Un programma scritto in BASIC, per un calcolatore 
CBM, non girerà mai direttamente su un altro calcolatore non CBM anche se 
quest’ultimo opera in BASIC. Infatti vi saranno delle piccole differenze di sintassi 
che non permetteranno mai l’interscambio diretto dei programmi. È opportuno 
però dirvi subito che una volta imparato un linguaggio specifico è molto facile 
imparare anche gli altri “dialetti”. 

Alcune regole di sintassi sono ovvie. Gli esempi con addizione e sottrazione 
all’inizio di questo capitolo non richiedono infatti alcuna spiegazione. Altre regole 
sono invece assolutamente arbitrarie per cui non dovete cercare una spiegazione, 
ma solo imparare la loro sintassi. Per esempio perchè usare per indicare la 
moltiplicazione invece del tradizionale segno “x” ? Semplicemente perchè il calco¬ 
latore non potrebbe distinguere tra la lettere “x” e il segno di moltiplicazione. E così 
in quasi tutti i linguaggi di programmazione si è scelto l’asterisco per indicare 
la moltiplicazione. La divisione è invece universalmente rappresentata dal segno 
L’unico motivo perchè non si è scelto il simbolo “H-” è che questo segno non è 
presente sulle tastiere dei calcolatori e delle telescriventi. 

Iniziamo ora la descrizione delle sintassi del BASIC CBM che possiamo ripartire 
in tre capitoli principali: sintassi della numerazione delle righe, dei dati e dei 
comandi al calcolatore. 

NUMERI DI LINEA 

Come abbiamo già avuto occasione di dire, un programma scritto in modo 
differito deve avere un numero all’inizio di ogni linea. La prima linea deve avere il 
numero più basso, l’ultima il numero più alto e tutte le altre numeri progressivi 
crescenti. Potete battere le linee con qualunque ordine perchè il calcolatore stesso le 
porrà in ordine crescente. Consideriamo per esempio un vecchio programma che 
abbia i seguenti numeri di linea: 


120 

130 

140 

150 

160 

170 

180 

190 


Se ora caricate una nuova linea con il numero 165 essa sarà inizialmente posta per 
ultima, ma il calcolatore provvederà automaticamente a porla tra la 160 e la 170. 
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Questo spostamento può essere così illustrato: 

Numeri di linea al momento Inserimento automatico 

che battete la linea 165 della nuova linea 


120 

130 

140 

150 

160 

170 

180 

190 

165 


120 

130 

140 

150 

160 

165 

170 

180 

190 


Se una nuova linea ha il numero di una già esistente allora la vecchia linea viene 
completamente sostituita da quella nuova. 

I numeri di linea del BASIC CBM devono essere compresi tra 1 e 63999. Il 
calcolatore interpreta le eventuali cifre poste all’inizio di una linea come numero di 
linea e se per caso avete battuto un numero con più di cinque cifre vi verrà subito 
fatto notare che avete commesso un errore di sintassi. 

Tutti i “dialetti” BASIC richiedono una numerazione delle linee in ordine 
crescente sebbene il valore massimo consentito dipenda da ogni singolo linguaggio. 

Gli altri linguaggi di programmazione, diversi dal BASIC, non richiedono la 
numerazione di tutte le linee e spesso non richiedono neanche che eventuali numeri 
siano in ordine crescente. 

I numeri di linea hanno anche l’importante significato di indirizzo. Infatti le 
istruzioni di un qualunque linguaggio si possono dividere in due grandi gruppi: 

1. Istruzioni che creano o modificano dei dati. 

2. Istruzioni che stabiliscono e controllano la successione delle operazioni. 

II concetto che le operazioni di un programa debbano essere eseguite con un certo 
ordine è facilmente comprensibile. Spesso le istruzioni sono eseguite con lo stesso 
ordine sequenziale con cui sono scritte e cioè per esempio: 

Inizio » 10 —^ 

20-^ 

^-*-30 

r -40-*- > 

^50-. 

_60 

^70-^ 

_80 


Ma altre volte è necessario effettuare dei salti per cui il numero di linea ci permette 
appunto di indirizzare il salto. Questo può essere illustrato così: 
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dati 

Le istruzioni di un programma hanno lo scopo fondamentale di stabilire come 
operare sui dati e altre volte di attribuire loro un valore concreto. Vi descriviamo ora i 
vari tipi di dati che potete usare nel BASIC CBM. 

Per quanto riguarda i numeri è consuetudine dividerli in due famiglie: numeri con 
virgola (detti anche frazionari o reali o “floating point”) e numeri interi. 

Numeri con virgola (o frazionari) 

La numerazione con virgola è la rappresentazione standard dei numeri nei calcola¬ 
tori CBM. Tutte le operazioni aritmetiche sono infatti eseguite su numeri con virgola. 
Un numero con virgola può essere privo della parte decimale e corrispondere 
quindi ad un numero intero. Può essere negativo (—) o positivo (con o senza il segno 
+). Ecco alcuni esempi di numeri con virgola che corrispondono a numeri interi: 


5 

-15 

65000 

161 

0 


mentre questi sono numeri con virgola che hanno anche una parte decimale: 


0.5 

0 0165432 
-00000009 
1.6 

240055 
-64 2 
3 1416 


Fate ben attenzione che anche se diciamo “numeri con virgola” in realtà noi 
dobbiamo porre un punto per rispettare la grafia anglosassone. Se poniamo la virgola 
commettiamo un errore di sintassi. Inoltre non dobbiamo neanche porre il punto per 
separare le migliaia, i milioni, ecc.; per esempio dobbiamo scrivere 65000 e non 
65.000. 

Arrotondamento 

Tutti i numeri hanno almeno otto cifre significative, ma alcuni possono averne anche 
nove. Se voi tentate di aggiungere altre cifre il BASIC CBM effettua una operazione 
di arrotondamento. Se la nuova cifra è maggiore o eguale a cinque si arrotonda per 
eccesso, mentre se è eguale o minore a quattro si arrotonda per difetto. Vi sono però 
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alcune eccezioni come quelle riportate in questi esempi: 


5555553556 
.555555555 

L 


5555555557 
.555555556 


?. 1111111115 
.111111111 


?. 1111111116 
.111111112 


Sembra che arrotondi da 6 in giù 
e da 7 in su 


Sembra che arrotondi da 5 in giù 
e da 6 in su 


Rappresentazione scientifica 

Un numero con dieci o più cifre viene sempre convertito nella forma di rappresenta¬ 
zione detta scientifica. Per esempio: 

READY. 

"•1111111114 
1.1111111 ÌE+OS* 

READY. 

?1111111115 
1.11111112E+0? 


Un numero nella rappresentazione scientifica ha la forma: 


numero E + ee 


dove: 


numero può essere un numero intero, frazionario o una espres¬ 

sione. Esso rappresenta le cifre significative che sono 
anche chiamate "coefficiente". Se non appare il punto, è 
implicito che esso sia alla destra del coefficiente. 

E equivale a "esponente". 

+ può essere il segno + o quello -, 

ee sono le due cifre dell'esponente decimale. Si può anche 

dire che rappresentano il numero di posti di cui spostare il 
punto a sinistra (esponente negativo) o a destra (esponen¬ 
te positivo) per portarlo nella sua posizione effettiva 
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Ecco alcuni esempi: 


Rappresentazione scientifica Rappresentazione standard 


2E1 

20 

10.5E+4 

105000 

66E+2 

6600 

66E-2 

066 

-66E-2 

-066 

1 E— 10 

0 0000000001 

94E20 

9400000000000000000000 


La rappresentazione scientica dei numeri è molto utile per esprimere numeri 
molto piccoli oppure molto grandi. Il BASIC CBM rappresenta infatti nella forma 
standard i numeri compresi tra 0.01 e 999999999 mentre usa invece quella scientifi¬ 
ca per i numeri fuori da tale intervallo. Ecco ancora qualche esempio: 

7.009 

9E-03 

REftDV. 

?.01 
. Gl 

REftDV. 

■ , 999999998. 3 
39993333 ? 

REftDV. 

•■•999999999.6 
1E+09 


È importante precisare che anche con la rappresentazione scientifica esiste un 
limite alla grandezza dei numeri che si possono elaborare con il BASIC CBM. 
Questi limiti sono: 


Il più grande numero con virgola è: + 1.70141183E + 38 
Il più piccolo numero con virgola è: + 2.93873588E - 39 


Ogni numero di grandezza maggiore darà un errore di “overflow” (superamen¬ 
to). Per esempio: 


?1.78141133E+33 \ 

1.7014US3E+38 I 

REftDv! / Nessun errore di overflow 

?-l.70141183E+38 I 

-1.70141133E+38 ) 

REftDV. \ 

?1.701411S4E+38 I 

'OVERFLOW error / Errore di overflow 

REftDV. I 

?—1.70141184E+38 / 

"'OVERFLOW ERROR 
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Mentre numeri più piccoli, del numero più piccolo possibile, saranno convertiti 
in zero: 


'2. 93873S88E-39 
2.938735S8E-39 


RERDV. 

7-2. 93S735S8E-39 
-2.93S735S3E-39 


Questi numeri sono corretti 


RERDV. 

72. 93S73587E-39 
0 


RERDV. 

?-2.33S735S7E-33 
0 


Numeri troppo piccoli: 
sono sostituiti da zero 


Numeri Interi 

Un numero è intero quando non ha la parte decimale o frazionaria. Può essere 
negativo (—) o positivo (con o senza il segno +). Nei calcolatori CBM un numero 
intero è compreso nell’intervallo tra -32767 e +32767. Ecco alcuni esempi: 

o 

i 

44 

32699 

-15 

Ogni numero intero può essere rappresentato come numero con virgola poiché i 
numeri interi sono un sottoinsieme dei numeri frazionari. Le operazioni aritmetiche 
sui numeri interi sono eseguite convertendo dapprima i numeri interi in numeri 
frazionari. 

Stringhe 

La parola “stringa” è usata per indicare dati che non sono numeri bensì parole 
come per esempio le parole o le frasi di questo libro. 

Abbiamo già usato la parola stringa per indicare i testi che appaiono come 
messaggi sullo schermo del display. Una stringa è costituita da uno o più caratteri 
racchiusi tra virgolette; per esempio: 


"HAI!” 

"SINERGIA” 

” 1234567 ” 

"IL TOTALE È 34,54” 
"MILANO, VIA CARCANO 63” 


Tra le virgolette di una stringa potete inserire caratteri alfabetici o numerici, 
simboli o caratteri grafici, caratteri di controllo del cursore (CLEAR SCREEN, 
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HOME CURSOR, CURSOR UP/DOWN, CURSOR LEFT/RIGHT) e il tasto 
REVERSE ON/OFF. Gli unici tasti che non possono essere inseriti in una stringa 
sono RUN/STOP, RETURN e INSERT/DELETE. 

Se una stringa viene visualizzata tutti i suoi caratteri appaiono così come sono. I 
tasti di controllo del cursore e REVERSE ON/OFF non comportano alcuna 
stampa se battuti per cui si è dovuto associarli a qualche simbolo per renderli 
riconoscibili. 

Vedete infatti a questo scopo la Tabella 4-1. 

Siccome una stringa viene normalmente definita all’interno di un’istruzione, essa 
deve essere lunga meno di 80 caratteri perchè alcune posizioni sono occupate dal 
numero di linea e dalle virgolette. 

In un calcolatore CBM si possono memorizzare però stringhe lunghe sino a 255 
caratteri concatenando stringhe più corte. Di questo ne parleremo in seguito. 

Variabili 

Quando vi abbiamo parlato della programmazione in modo immediato vi abbia¬ 
mo fatto l’esempio delle due istruzioni: 


che potevano essere condensate in un’unica istruzione: 


Fl=ir*i 


'■FI 


In questi esempi A rappresenta il nome di una variabile. 

Una variabile è un modo convenzionale per rappresentare un numero o una 
stringa. Per esempio: 


:o® h=b+c 
200 "h 


Questo piccolo programma fa stampare la somma di due numeri, ma esso potrà 
essere eseguito solo se si danno valori concreti alle due variabili B e C. Infatti se 
assegnamo a B e a C due valori: 


30 E=4.65 
35 C=3.72 

:ee a=b+c 

200 ?fi 


Otteremmo A = 8.37. 
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Tabella 4-1: Simboli speciali nelle stringhe 


Funziona 


Tatto 


Simbolo nalla stringa'^ 


Reverse On 


Reverse Off 


Home Cursor 


Clear Screen 


Cursor Down 


Cursor Up 


Cursor Right 


Cursor Left 


rwì 

RVS 

OH 

\___ 


sm 


Shift 


r^n 

RVS 



f ClR 


SCREEN 
HOME 
___ è 


SCREEN 

HOME 


CURSOR 

UZJ 


Shift 


{► 

CURSOR 


V 


CURSOR 

L2J 


Shift 


<r 

CURSOR 


d (Reverse R) 


■ (Reverse Shift R) 

Cj (Reverse S) 


7 ] (Reverse Shift S) 


f] (Reverse Q) 


n (Reverse Shift Q) 


Il (Reverse ) ) 


Il (Reverse Shift ] ) 


* Il simbolo grafico che appare in questa colonna può variare tra un calcolatore CBM ad 
un altro a seconda del tipo di tastiera. La descrizione dei tasti è però comunque valida. 


I nomi di variabili possono essere usati sia per indicare dati numerici che stringhe. 

Se avete avuto occasione di studiare l’Algebra pensiamo vi sia facile capire che 
cosa sono le variabili. Diversamente provate a pensare alle variabili come al nome 
di una casella postale: ogni cosa sia inserita nella casella diviene il valore assegnato 
alla variabile. 


Nomi di variabili 

Il nome di una variabile può essere costituito da uno, due o tre caratteri con le 
seguenti condizioni: 
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m m m 

T Il terzo carattere deve essere $ per le stringhe o 

' - % per le variabili intere. Le variabili numeriche frazionarie 

possono avere solo due caratteri. 


Il secondo carattere può essere qualunque lettera 
non shiftata (da A a Z). oppure una cifra numerica 
(da 1 a 9 e 0). per qualunque tipo di variabile. 

Il primo carattere deve essere una lettera non shiftata 
(da A a Z) per qualunque tipo di variabile. 


Si vede così che l’ultimo carattere caratterizza il tipo di variabile. 

Prestate molta attenzione perchè i primi due caratteri vogliono lettere o numeri 
con il tasto SHIFT non premuto. In tal caso potrete avere lettere minuscole o 
maiuscole a seconda dell’insieme di caratteri in funzione in quel momento, ma 
quello che conta in ogni caso è che SHIFT non sia abilitato! 

Le variabili per numeri con virgola sono le più usate, eccone alcuni esempi: 

A 

B 

c 

Al 

AA 

Z5 


Nel caso di numeri interi avete invece variabili come queste: 


A% 

B% 

C% 

A1% 

MN% 

X4% 


Ricordate che anche le variabili per numeri con virgola possono assumere valori 
interi. E infine ecco alcuni esempi di variabili di stringa: 


A$ 

M$ 

MN$ 

MI* 

ZX$ 

F6$ 


Se lo ritenete opportuno potete scrivere nomi di variabili lunghi sino a 255 caratteri, 
ma solamente i primi due caratteri sono utili per il riconoscimento della variabile. Per 
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esempio BANANA e BACIO sono la stessa variabile (BA). Altri esempi sono: 


MAGIC* 

interpretalo come 

MA* 

NI 23456789 

interpretato come 

NI 

MMMS 

interpretato come 

MM* 

ABCDEF% 

interpretato come 

AB% 

CALENDAR 

interpretato come 

CA 


Se desiderate usare nomi di variabile più lunghi di due caratteri ricordatevi però 
che: 

1. Nomi più lunghi occupano più spazio in memoria però permettono una più 
facile lettura del programma e delle sue variabili. 

2. Solo i primi due caratteri (e il simbolo $ o %) identificano la variabile. 

3. Nel BASIC CBM esistono delle parole riservate, riportate nella Tabella 4 (a pag. 120), 
che non possono assolutamente far parte dei nomi delle variabili. 


OPERATORI 

L’istruzione BASIC: 


100 "'10.2+4.7 


ordina al calcolatore di sommare 10.2 a 4.7 e di visualizzare il risultato. Invece 
l’istruzione: 


250 C-H+B 

ordina al calcolatore di sommare due numeri con virgola rappresentati dalle 
variabili A e B e di assegnare il risultato alla variabile C. 

Come è facile intuire il segno (+) indica l’operazione di addizione. Nella termino¬ 
logia del calcolatori si dice appunto che il segno (+) rappresenta un operatore 
aritmetico. 

Oltre all’operatore somma, tutti noi conosciamo gli operatori differenza, molti¬ 
plicazione e divisione. Esistono però altre classi di operatori che sono molto facili 
da capire, ma che normalmente non usiamo nella nostra attività quotidiana: gli 
operatori relazionali e gli operatori Booleani. 

In Tabella 4-2 riportiamo tutti gli operatori del BASIC CBM descritti dettaglia¬ 
tamente nei paragrafi successivi. 

Operatori Aritmetici 

Gli operatori aritmetici trattano le operazioni di somma, sottrazione, moltiplica¬ 
zione, divisione ed elevazione a potenza. Essi operano su numeri con virgola. Come 
abbiamo già detto, se le operazioni sono fatte su numeri interi questi vengono 
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Tabella 4-2: Operatori 



Precedenza 

Operatore 

Significato 


Alta 

9 

( I 

Le parentesi cambiano l'ordine di precedenza 


8 

1 

Potenza 

li 

c • 

7 

— 

Segno meno 

6 

* 

Moltiplicazione 

si 

6 

/ 

Divisione 

a-c 

O < 

5 

♦ 

Addizione 

5 


Sottrazione 


4 

= 

Eguale 

s s 

4 

< > 

Non eguale 

5 ° 

4 

< 

Minore di 

•s 

4 

> 

Maggiore di 

oi 

4 

< = 0 = < 

Minore o uguale di 


4 

> * 0 - > 

Maggiore o eguale di 

§ c 

3 

NOT 

Negazione logica 

£ co 
<0 c 

2 

AND 

AND logico 

• O 

a o 

O OD 

1 

OR 

OR logico 

Bassa 




dapprima trasformati in numeri con virgola, poi viene eseguita l’operazione. Se il 
risultato deve essere intero allora esso viene convertito dalla forma con virgola a 
quella intera. 

I dati su cui agiscono gli operatori sono detti “operandi”. 

Gli operatori aritmetici operano sempre su due operandi. 

Gli operandi possono essere numeri oppure variabili. 

Addizione (+). Il dato o operando alla sinistra del segno più viene sommato 
all’operando di destra. Per esempio: 

2+2 

A+B+C 

X%+1 

BR + 10E-2 

II segno (+) viene anche usato per sommare stringhe, ma con la grande differenza 
che invece di sommare due valori effettua invece il concatenamento delle stringhe. 

La differenza tra somma di due numeri e somma di due stringhe può essere 
facilmente compresa osservando questi esempi: 


Addizione di numeri: 
numero 1 + numero 2 = numero 3 

Addizione di stringhe: 
stringa 1 + stringa 2 = stringa 1 stringa 2 


Mediante il concatenamento di più stringhe si può costruire una stringa lunga 
sino a 255 caratteri; per esempio: 
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"FOR" + "WARD" risulla: "FORWARD" 

"BUON" +“ “+•' GIORNO" risulta: "BUON GIORNO" 

A$ + BS risulta il concatenamento delle due 

stringhe contenute in A$ e B$ 

"1" + CH$ risulta il concatenamento del 

carattere "1" e del contenuto di CH$ 


In questo esempio se A$ è eguale a “FOR” e B$ è eguale a “WARD” allora A$ + B$ 
porta allo stesso risultato di “FOR” + “WARD”. 

Sottrazione (-). L’operando di destra viene sottratto all’operando di sinistra. Per 
esempio: 


4 - 1 

risultato: 3 

100 - 64 

risultato: 36 

A - B 

risulta la differenza tra il 


contenuto della variabile 


variabile B 

55 - 142 

risultato: -87 


In questo esempio se ad A viene assegnato il valore 100 e a B il valore 64 allora la 
seconda e terza riga portano allo stesso risultato. 

Il segno meno viene anche usato per indicare numeri negativi. Per esempio: 


-5 

-9E4 

-B 

4--2 Equivale a 4 + 2 


Moltiplicazione (★). Il segno di asterisco indica che l’operando alla sua destra 
viene moltiplicato per l’operando alla sua sinistra: 


100*2 risultato: 200 

50*0 risultato: 0 

A*X1 risulta il prodotto tra i due numeri 

frazionari rappresentati dalle 
variabili A e XI 


Se alla variabile A viena assegnato il valore 4.2 e alla variabile X1 il valore 9.63, il 
risultato della moltiplicazione sarà 40.446. A e XI potrebbero anche contenere 
numeri interi come 100 e 2 ma essi sarebbero posti nella forma con virgola, cioè 
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100 0 e 2.0, perchè le due variabili sono appunto variabili numeriche con virgola. Se 
volessimo invece che i due valori siano rappresentati come interi dovremmo 
aggiungere il carattere % alle variabili: A% e Xl%. 

Divisione (/). L’operando alla sinistra della barra è il dividendo mentre quello 
alla destra è il divisore. Esempio: 


10/2 

risultato: 5 

6400/4 

risultato: 1600 

A/B 

risulta il quoziente tra i due numeri 


frazionari contenuti nelle variabili 


A e B 

4E2/XR 

il numero 400 viene diviso per il 


contenuto di XR 


Il terzo esempio rappresenta un generico quoziente purché si assegnino ad A e a B 
opportuni valori. Se vogliamo che la divisione avvenga solo tra numeri interi 
dovremo aggiungere il segno %: A% / B%. 

Elevazione a potenza (t). Il dato alla sinistra della freccetta viene elevato alla 
potenza indicata dal dato posto alla destra. Se il secondo dato o operando è 2 si dice 
che si eleva al quadrato; se è 3 si dice che si eleva al cubo. Il secondo operando, detto 
anche esponente, può essere un numero o una variabile o una espressione purché il 
risultato dell’operazione porti ad un valore di grandezza non superiore a quella 
massima consentita per i numeri con virgola nel calcolatore CBM. 


2t2 

risultato: 4 

1212 

risultato: 144 

113 

risultato: 1 

A15 

il valore della variabile 
frazionaria A viene elevato alla 
potenza 5 

216.4 

risultato: 84.4485064 

NM1- 10 

il valore della variabile NM viene 
elevato alla potenza -10 

14IF 

il numero 14 viene elevato alla 


potenza rappresentata dal valore di F 


Ordine di esecuzione delle operazioni aritmetiche 

Una espressione aritmetica può contenere più operazioni come illustrato in 
questo esempio: 


A+C-10/2I2 


Quando il calcolatore incontra una espressione come questa esegue le singole 
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operazione con un ben determinato ordine: prima di tutto calcola le potenze (t), poi 
tiene conto dei segni, poi esegue le moltiplicazioni e le divisioni (* /) e infine esegue le 
addizioni e le sottrazioni (-1—). Le operazioni dello stesso livello gerarchico sono 
eseguite nell’ordine da sinistra verso destra. 

Se usate però le parentesi, come normalmente fate in Algebra, potete stabilire un 
qualunque ordine di esecuzione. Ecco un esempio di come, con le parentesi, potete 
cambiare l’ordine di esecuzione e ottenere risultati diversi: 


4+1 "2 Risultato: 6 

(4+11*2 Risultato: 10 

100*4/2-1 Risultato: 199 

100.(4/2-1) Risultato: 100 

100*(4/(2- 11) Risultato: 400 

Se in una espressione sono presenti coppie di parentesi, una dentro l’altra, il 
calcolatore inizierà ad operare da quella più interna verso l’esterno. L’uso di 
parentesi è sempre consigliabile, sia per evitare errori di calcolo, sia per rendere più 
leggibile il vostro programma. 


Operatori relazionali 

Gli operatori relazionali rappresentano le seguenti condizioni: maggiore di (>), 
minore di (<), eguale (=), diverso da (< >), maggiore o eguale di (> =) e minore o 
eguale di (< =). 


1 = 5-4 

14 > 66 

15 >= 15 
A < > B 


risultato: vero (-1) 
risultato: falso (0) 
risultato: vero (-1) 
il risultato dipende dai valori 
assegnati alle variabili A e B 


Il BASIC CBM assegna il valore 0 ad una condizione “falsa” e il valore -1 ad una 
condizione “vera”. Questi due numeri 0 e —1 possono essere usati in una qualunque 
espressione aritmetica. Per esempio l’espressione (1 = 1) * 4 diverrà -4 perchè la 
condizione (1 = 1) è “vera” e quindi vale —1. In altre parole, potete sempre inserire 
in una espressione operatori relazionali. Ecco alcuni esempi: 


25 + (14>66) Equivale a: 25+0 

(A+(1 =5-4))*(15 > = 15) Equivale a: (A—1)•(—1) 


Gli operatori relazionali possono essere usati anche per confrontare stringhe. La 
relazione d’ordine che viene scelta in questo caso è quella alfabetica e cioè: A < B, B 
< C, C < D, ecc. Due stringhe sono confrontate carattere per carattere a cominciare 
da quello più a sinistra. Per esempio: 
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"A" < "B“ risultato: vero (-1) 

"X" = "XX" risultato: falso (0) 

C$ = A$ + B$ il risultato dipende dal valore 

assegnato alle tre variabili di stringa 
C$. A$ e B$ 


Il BASIC CBM assegna il valore -I per una relazione “vera” tra due stringhe e il 
valore 0 per una relazione “falsa” così come viene fatto per le relazioni tra numeri. 
Per esempio: 


CJ0NES'• >’ D0E"l+37 Equivale a: -1+37 

I'AAA "< 'AA"MZ9-f'OTTER"> 'AB’')) Equivale a: 0(Z9-(-1)) 


Operatori Booleani 

Gli operatori Booleani vi permettono di prendere decisioni logiche nell’ambito 
del vostro programma. Comunemente questo operatori sono quattro: AND, OR, 
OR ESCLUSIVO e NOT, ma nel BASIC CBM sono previsti solo tre di questi 
operatori: AND, OR e NOT. 

Se non conoscete già gli operatori Booleani, o come più esattamente si dice 
l’Algebra Booleana, allora cerchiamo di darvene un’idea con un esempio. 

Supponiamo che dovete comprare dei biscotti per due bambini in un negozio. 
L’operatore AND dice che comprerete i biscotti se il bambino A e il bambino B 
desiderano i biscotti (AND in inglese significa “e”). 

L’operatore OR dice che i biscotti saranno comperati se il bambino A oppure il 
bambino B li desiderano (OR in inglese significa “o”). In questo caso ricordatevi 
però che li possono desiderare anche tutti e due! 

L’operatore NOT genera semplicemente una negazione. Se il bambino A non è 
mai d’accordo con il bambino B allora diremo che la decisione di A è la negazione di 
quella di B. 

I calcolatori numerici non lavorano però con analogie, ma bensì con numeri. Di 
conseguenza la logica Booleana riduce tutte le variabili ai soli valori 0 e 1. Nella 
Tabella 4-3 è riportata la cosidetta “tabella della verità” che indica tutti i possibili 
valori che possono essere assunti dalle variabili logiche. 

Gli operatori Booleani possono essere usati per controllare la successione logica 
delle istruzioni di un programma: 

IF A = 100 AND B = 100 GOTO 10 
Se ambedue A e B sono eguali a 100. 
il programma salta alla linea 10 

IF X < Y AND B > = 44 THEN F = 0 
Se X è minore di Y, e B è maggiore o eguale 
a 44, allora F viene posta eguale a 0 

IF A = 100 OR B = 100 GOTO 20 
Se una delle due variabili A o B è uguale a 100 
allora il programma salta alla linea 20 


IF X < Y OR B > = 44 THEN F = 0 
F è posto eguale a 0, se X è minore di Y 
oppure se B è maggiore o eguale a 44 

IF A = 1 AND B = 2 OR C = 3 GOTO 30 
il salto alla linea 30 avviene se A = 1 e 
contemporaneamente B = 2. oppure se C 
è uguale a 3 
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È possibile verificare se un singolo operando è “vero” o “falso”. Se un operando 
appare da solo è implicito che sia seguito dalla diseguaglianza “<>0”. Ogni valore 
non nullo è considerato vero mentre ogni valore nullo è ritenuto falso. 


IF A THEN B = 2 
IF A < > 0 THEN B = -2 
queste due istruzioni sono equivalenti 

IF NOT B GOTO 100 
il salto avviene se B è falso 
É preferibile però scrivere: 

IF B = 0 GOTO 100 


Tutti gli operatori Booleani usano operandi interi. Se applicate un operatore 
Booleano ad un numero con virgola allora tale valore sarà automaticamente convertito 
in intero. È ovvio che questa seconda operazione sarà possibile solo se al numero 
con virgola iniziale corrisponde un intero di grandezza non superiore alla massima 
prevista per i numeri interi nel vostro calcolatore. 

Nel caso di variabili di stringa non è assolutamente consentito applicare loro 
operatori Booleani. 

Se siete un programmatore principiante forse avrete qualche difficoltà per com¬ 
prendere i paragrafi successivi; in tal caso saltate pure alla prossima sezione. 


Tabella 4-3: Tavola della verità Booleana 


Il risultato dell'operazione AND vale 1 solo se i due bit sono 1 
1 AND 1 = 1 
0 AND 1 = 0 
1 AND 0 = 0 
0 AND 0 = 0 


Il risultato dell'operazione OR vale 1 se uno o ambedue i bit sono 1 

1 or i = 1 
0 OR i = i 
i or o = 1 

0 OR 0 = 0 

Il risultato dell'operazione NOT è il complemento del bit 
not i = o 

NOT 0 = 1 


Gli operatori Booleani operano su operandi interi una cifra binaria alla volta. Il 
BASIC CBM memorizza tutti i numeri in forma binaria usando la notazione di 
complemento a due per i valori negativi. Possiamo allora illustrare una operazione 
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and in questo modo: 



Una operazione OR invece: 



E da ultimo due operazioni NOT: 



Operazioni Booleane di questo tipo sono normalmente impiegate nella applica¬ 
zioni industriali.* 

Se gli operandi non sono interi, sono dapprima convertiti nella forma intera. 
Se gli operandi di una operazione Booleana sono relazionali allora assumono 
i valori 0 o —1. Per esempio: 

A=1 OR C<2 

è equivalente a: 

Consideriamo una operzione più complessa: 

IF A = B AND C<D GOTO 40 

* Se desiderate approfondire lo studio dell’aritmetica binaria e delle operazioni Booleane potete leggere 
“An Introduction to Microcomputers: Volume 0 - The Beginners Book” di A. Osborne edito da 
McGraw-Hill, nel 1977. 
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Dapprima si devonc calcolare le sue espressioni relazionali. Supponiamo che la 
prima sia vera e la seconda falsa per cui la nostra operazione può essere così 
riscritta: 

IF - 1 AND 0 GOTO 40 

Se eseguiamo ora l’operazione AND otteniamo il valore 0: 

IF 0 GOTO 40 

Ricordiamo che un singolo termine è sempre seguito da “< > 0”, per cui otteniamo: 
IF o< >0 GOTO 40 

che è sicuramente falsa per cui il salto alla linea 40 non viene mai fatto. 

Diversamente un operatore Booleano, applicato a due variabili numeriche, può 
portare a qualunque numero intero: 

IF A% AND B% GOTO 40 

Poniamo A% = 255 e B% = 240. L’operazione 255 AND 240 porta al risultato 240. 
Per cui possiamo scrivere: 

IF 240 GOTO 40 


oppure: 

IF 240 < > 0 GOTO 40 

E in tal caso avverrà il salto alla linea 40. 

Confrontiamo ora le due istruzioni di assegnazione: 

A = A AND 10 
A = A <10 

Nel primo caso il valore corrente di A è congiunto (AND) con il valore 10 e il 
risultato diviene il nuovo valore di A. Ovviamente A doveva avere inizialmente un 
valore compreso tra —32767 e +32767. Nel secondo caso l’espressione relazionale A 
< 10 potrà assumere i valori 0 o —1 per cui ad A potranno essere assegnati solo unp 
di questi due valori. 


VARIABILI CON INDICI (“ARRAYS”) 

Le variabili con indici (o variabili vettoriali o matriciali) hanno un importantissi¬ 
mo impiego nella programmazione. Qui di seguito cerchiamo di illustrarvi i concet¬ 
ti fondamentali con dei semplici esempi. 

Quando avete due o più dati, tra cui esista una correlazione comune, invece di dare 
ad ognuno di essi un nome diverso potete attribuire a tutti uno stesso nome di variabile 
e poi distinguere ogni singolo componente con un indice numerico. 
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Lo scontrino di un supermercato potrebbe, per esempio avere sei voci dal reparto 
carni e pollame, quattro da quello frutta e verdura e tre da quello latte e formaggi. 
Le voci di ogni gruppo potrebbero essere chiamate con lo stesso nome; per esempio 
così: 


CP»<0)=“BOLLITO" 
CPta,' = "FILETTO" 
CP*<2>="CONICLIO" 
CP*<3>=“BISTECCHE 
CP$r 4 >="POLLAME" 
CP$<5>="SflLUMI" 


FVÌ<0)="LIMONI" 
FV*<1>="MELE" 
FV$ <2 >=" BFlNFlNE " 
F\'t < 3> = " CAROTE “ 


LFt<0)="LFlTTE" 

LF*<l>="PflRMIGGIflNO 

LF*<2>=“CREMfl" 


Ogni singola voce sarebbe poi riconosciuta da un diverso indice. 

È possibile estendere ulteriormente questo concetto introducendo un secondo 
indice e attribuendo a tutte le voci lo stesso nome. Il primo indice indicherebbe 
quindi il reparto mentre il secondo avrebbe lo stesso significato che aveva nell’e¬ 
sempio precedente: 


SM*<0,0>=CP*<0> 
■3M*<0, 1)=CP*<1> 
SH*<0,2>=CP*<2> 
SM*C0,3>=CPt<3) 
SM*<0.-O=CF't(4) 
•3M*(0..5>=CP*C5) 


'3M$< 1,0)«FV#<0) 
SM*a,l>=FV*<l) 
SM*< 1 ,2)=FV*(2; 
SM*<1,3>=FV*<3) 


Sri*<2,0>=LF»(0) 
SM*<2,1)=LF*(1) 
3M*(:2,2)=LFt<2) 


Le variabili con indici possono rappresentare sia grandezze intere, che numeri 
frazionari, che stringhe. È però assolutamente vietato attribuire ad una stessa variabi¬ 
le con indici contenuti di tipo diverso cioè non si possono mescolare interi con numeri 
frazionari con stringhe. Una variabile con indice può rappresentare una sola di 
queste grandezze! 

Le variabili con indici o come più comunemente si dice i vettori, nel caso di un 
unico indice, o le matrici quando gli indici sono due o più, sono utilissime per 
denominare un gran numero di variabili che abbiano una qualche caratteristica 
comune. Considerate per esempio una tabella di 200 numeri posti su 10 righe con 20 
numeri per riga (10 righe e 20 colonne) e poniamoci il problema di denominare 
ognuno dei 200 numeri. E ovvio che sarebbe catastrofico dare ad ogni variabile un 
nome diverso mentre è facilissimo attribuire un unico nome a tutta la tabella e 
caratterizzare poi ogni elemento proprio con la coppia di indici che individuano la 
riga e la colonna. 

Le variabili con indici possono avere una o più dimensioni cioè uno o più indici. Se la 
dimensione è uno, cioè c’è un solo indice, allora si usa dire che abbiamo un vettore. 
Se la dimensione è due, o superiore a due, si dice più propriamente che abbiamo una 
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matrice. Nel caso di dimensione due il primo indice individua la riga mentre il 
secondo individua la colonna. Nel caso di dimensione tre il terzo indice individua 
piani successivi in cui si pensa scomposta la matrice. Matrice di quattro o più 
dimensioni sono impossibili da visualizzare per la nostra mente, ma non sono 
niente di impossibile in matematica. 

Vediamo adesso alcune variabili in dettaglio. 

Un vettore a una dimensione ha la forma: 


dove: 


nome (i) 
nome 


è il nome della variabile 
con indice e può essere di 
qualunque tipo 
rappresenta l'indice e inizia 
da zero 


Un vettore mono-dimensionale denominato A e con cinque elementi può essere 
così visualizzato: 



Il numero totale di elementi di un vettore è pari al valore massimo dell’indice più 
uno in quanto in BASIC si parte dal valore 0 dell’indice. 

Una matrice bi-dimensionale ha la forma: 

nome (i, j) 

dove: 

nome è il nome della variabile con indici 

i è l'indice di colonna 

j è l'indice di riga 


Per esempio la matrice A$ con due colonne e tre righe può essere così visualizza¬ 
ta: 


A$(0.0l 

A$(1.0I 

A$(2,0) 


A$(0,1 ) 
A$(1,1I 
A$(2, Il 


Si definisce “ordine” di una matrice il prodotto del numero totale di righe per il 
numero totale di colonne. Nel nostro esempio è 3 x 2 = 6. 
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Matrici di dimensione superiore possono essere così denominate: 


nome (i, ), k, ...) 

Le variabili con indice che abbiano fino all elementi, come per esempio un vettore 
con indice da 0 a 10, possono essere usate correntemente in un programma BASIC. Se 
il numero totale di elementi è superiore a 11 è necessario “dichiarare” all’inizio del 
programma la presenza di questa variabile mediante una istruzione di “dimensiona¬ 
mento”. Questo tipo di istruzione sarà descritta successivamente. Se date ad una 
variabile senza indici lo stesso nome di una variabile con indici il calcolatore 
interpreterà tale variabile come assolutamente distinta da quella con indici. 

COMANDI BASIC 

Nei capitoli 2 e 3 abbiamo descritto alcuni comandi, che potete dare tramite la 
tastiera, per controllare lo svolgimento delle funzioni del vostro calcolatore. Vi 
ricordiamo per esempio il comando RUN. 

Tutti i comandi possono essere eseguiti come istruzioni BASIC. 

Quando scrivete programmi molto lunghi è probabile che non abbiate sufficiente 
memoria del calcolatore. Dovete quindi ripartire il vostro programma in tanto 
moduli separati ed eseguirne uno alla volta. Alcune tecniche, per la gestione di 
questi moduli di programma, saranno descritte nel capitolo 6. 


Parole riservate 

Tutte le parole o combinazioni di caratteri che definiscono le istruzioni o funzioni del 
linguaggio BASIC sono dette “parole riservate”. Nella tabella 4-4 abbiamo riportato 
tutte le parole riservate del BASIC CBM; molte di esse sono state già incontrate e le 
altre verranno descritte nel capitolo 6. 

Il calcolatore, quando esegue un programma, ricerca in ogni istruzione BASIC le 
stringhe di caratteri che costituiscono le parole riservate. L’unica eccezione è 
quando la stringa è posta tra virgolette, perchè una stringa viene sempre interpreta¬ 
ta come una costante alfanumerica e mai come una istruzione. 

Se una parola riservata viene inserita nel nome di una variabile commette un 
notevole errore. Ricordatevi di non usare o inserire mai le parole riservate, o le loro 
abbreviazioni, nei nomi delle variabili. 

L’asterisco posto vicino ad alcune parole nella Tabella 4-4 indica che queste 
parole appartengono al BASIC versione 4.0 e superiori. E tuttavia consigliabile non 
usare mai queste parole anche con le altre versioni di BASIC perchè potreste 
sempre aggiornare il vostro programma per farlo girare su calcolatori con il BASIC 
4.0. 
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Tabella 4-4: Parole riservate. 


Parola 

Abbreviazioni 


Abbreviazioni 


Abbreviazioni 

Parola 


? 

|ll 

2 : i 
J!ì 

ni 
i f | 

Parola 

Insieme di 

caratteri 

alternativo 

li? 

£ « c 

S mS 

— o • 

Parola 

*2 
® C j 

ES? 
2 ! 6 
152 

Insieme di 

caratteri 

standard 

* ÌS 

c 

151 

1 

ABS 

=•£ 

Mi 

DSS* 

dsS 

Dì* 

NEW 

rì^ni 

NEW 

SCRATCH* 

SI* 

. 

AND 

Siti 

M 

DSAVE* 

dS 

D* 

NEXT 

fiE 

N” 

SGN 

s 0 


APPEND* 

*P 

H~l 

END 

eN 

E 

NOT 

r.0 

wr 

SIN 

II 


ASC 

3*’> 

M9 

EXP 

! 

Et 

ON 

or» 

ON 

SPC( 

I p 


ATN 

=.T 

rii 

FN 

tri 

FN 

OPEN 

oP 

cn 

SOR 



BACKUP* 

L'A 

Bt 

FOR 

+0 

rr 

OR 

or 

OP 

ST 


CT 

CHR$ 

C H 

•: i 

FROM 

+F' 

F — 

PEEK 

r:E 

P“ 

STATUS 

status 

ì-TATijl 

CLOSE 

•: IO 

CLr 

GET 


0 

POKE 

K*0 

FT 

STEP 

- tE 

ST _ ' 

CLR 

cL 

CL 

GET # 

.i*t# 

GET # 

POS 

r-os 

POS 

STOP 

»T 

SI 

CMD 

eli 

i. 

GOTO 

:il.l 

or 

PRINT 

"* 


STR$ 

jtrT 

STPi 

COLLECT* 

■: oL 

COL 

GOSUB 

ìioS 

GO# 

PRINT* 

r*F’ 

P_ 

SYS 



CONCAT* 

c or»C 

CON- 

HEADER* 

hE 

H” 

READ 

rE 

P~ 

TABI 


7 + 

CONT 

CO 

cr 

IF 

11 

IF 

READ# 


F'EFlIi# 

TAN 

+ =■/•» 

TflN 

COPY* 

co* 

COI 

INPUT 

i nr>u+ 

INPUT 

RECORD* 

r «-C 

PE- 


LH 

T 1 

COS 

co» 

COI 

INPUT# 

iM 

I 

REM 

r ofu 

PEM 

TI 

+ 1 

TI 

DATA 

dft 

Dt 

INT 

ifit 

INT 

RENAME* 

r e*N 

PE 

TIME 


TIME 

DCLOSE* 

dC 

n- 

LEFT$ 

l*5*F 

LE- 

RESTORE 

r »S 

PE# 

Tl$ 

tif 

TI* 

DEE 

dE 

D“ 

LEN 

l*r» 

LEM 

RETURN 

re-T 

PEI 

TO 


TO 

DIM 

di 

r<. 

LET 

tE 

L“ 

RIGHTS 

r I 

P*. 

US 


IJ* 

DIRECTORY* 

dì P 

DI- 

LIST 

li 

L-. 

RND 

rN 

P 

VAL 


V* 

DlOAD* 

dL 

DL 

LOAD 

IO 

cr 

RUN 

rU 

F’ . 

VERIFY 

• € 


DOPEN- 

dO 

Dr 

LOG 

lO £• 

LOG 

SAVE 

IH 


WAIT 



OS* 

di 

u 

MID$ 

fui 

M-. 








Sono parole riservate nel BASIC versione 4.0 e superiori 


Abbreviazioni di parole BASIC 

Avete già visto che l’istruzione PRINT può essere inserita nel calcolatore nella 
forma contratta di ?. Infatti il punto interrogativo ? sarà interpretato dal calcolatore 
come la parola completa PRINT. 

La maggior parte dei comandi, delle istruzioni e delle funzioni BASIC possono 
essere abbreviate usando i primi due caratteri della parola, ma con il secondo carattere 
battuto in modo shiftato. 

Nel caso di tastiera con caratteri standard il secondo carattere apparirà come un 
carattere grafico. Per esempio l’abbreviazione di LIST sarà: 


Li 

c LE 


Se due parole iniziano con le stesse due lettere (come STEP e STOP) allora 
l’abbreviazione di due lettere viene assegnata alla parola più usata mentre l’altra o 
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non viene abbreviata oppure è scritta con tre lettere (di cui la terza in modo 
shiftato). Per esempio STOP è abbreviato così: 


Si 
o si: 


mentre STEP è abbreviato: 


STe 
0 STS 


Cioè per abbreviare STEP dovete battere le lettere maiuscole S e T e la E shiftata 
(che risulta essere il “TOP LINE HORIZONTAL”). 

Qui di seguito vi diamo alcuni esempi di abbreviazioni con due o tre lettere. 

Ricordatevi però che se il programma viene listato esso apparirà nella forma normale 
espansa. 


Po 5 9 4 6 8,14 Quindi RETURN (Po abbreviazione per POKE) 

10 1F a=10 

20 b=a aM 14+eX(2) 

30 di c(5) 

40 fO i=0 to 5 
50 rF c(I> 

60 nE 

70 dA 1,6,2,4,10,5,16 
80 reS 
90 eN 

11 Abbreviazione per LIST 
10 let a=10 

20 b=a and 14+exp(2) 

30 dim c(5) 

40 for i=0 to 5 
50 read c(i) 

60 next 

70 data 1,6,2,4,1 
80 restore 
90 end 

Po 59468,12 Prima di RETURN (Po abbreviazione per POKE) 


Come abbiamo già detto il programma listato dal calcolatore appare nella forma 
espansa. Se provate poi a listare, con i caratteri standard, il programma lo vedrete 
apparire con le lettere maiuscole. Per ritornare ai caratteri standard ricordatevi di 
dare però il comando: 


POKE 59468,12 

Desideriamo a questo punto fare una precisazione che riguarda i comandi SPC e 
TAB. Questi comandi, quando vengono dati in forma abbreviata, comprendono 
già la parentesi di sinistra dell’argomento. Per questo motivo se battete così: 


IO 'SF-.5.' 


ottenete in realtà: 


1© »>rin+ s*c• * 5 • 

le due parentesi di sinistra 
causano un errore di sintassi 
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che è ovviamente errato. 

La forma corretta è questa senza la parentesi di sinistra: 

10?sP5) 

Questo comportamento anomalo vale solo per SPC e TAB, per tutte le altre 
funzioni dovete invece porre ambedue le parentesi. 

10? rN(1) 


ISTRUZIONI BASIC 


Le operazioni, che si desiderano eseguire con una istruzione, sono indicate mediante 
le “parole riservate” della Tabella 4-4. 

Nel capitolo 8 daremo una descrizione esatta di ogni istruzione BASIC. In questo 
capitolo diamo invece i concetti fondamentali di programmazione illustrando 
come si usano le istruzioni. Se lo ritenete opportuno consultate il capitolo 8 per 
avere l’esatta interpretazione delle singole istruzioni. 

COMMENTI 

È tradizione che ogni presentazione del linguaggio BASIC cominci con la 
descrizione dell’unica istruzione che il calcolatore ignora: i “commenti”. Questa 
istruzione è codificata come REM e ha lo scopo di rendere più facile la lettura del 
vostro programma mediante l’inserimento di righe che portino vostri commenti o 
spiegazioni. 

Se scrivete un piccolo programma di cinque o dieci righe non avrete sicuramente 
difficoltà a ricordare che cosa fa. Ma se è lungo cento o duecento righe, o se avete 
scritto molti programmi, sarà ben difficile che possiate ricordare la loro strutura. 
L’unico modo per ovviare a questi inconvenienti è quello di documentare i pro¬ 
grammi e cioè inserire in essi delle opportune zone di spiegazione. Un programmato- 
re esperto riempie i suoi lavori di commenti REM per descrivere in ogni punto la 
procedura che intende svolgere. 

Le istruzioni REM hanno il numero di linea come qualunque altra istruzione. 
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ISTRUZIONI DI ASSEGNAZIONE 

Le istruzioni di assegnazione attribuiscono dei valori alle variabili. Esse sono 
sicuramente le più usate in un programma. Esempio: 

100 LET X=3.24 

L'istruzione 100 assegna il valore 3 24 
alla variabile X 

150 X=3.24 

Come sopra L'uso di LET è facoltativo 


215 AJ="BENVENUTI" 

Alla variabile A$ di stringa viene assegnato 
il valore "BENVENUTI" 


Ecco un altro caso di assegnazione che riguarda il vetore LF$ (I): 


200 REM LFt (1) E' LA LISTA DEI LATTICINI 
210 LFt<0>="LATTE" 

220 LF#<1>="FARMIGGIANO" 

230 LF*<2)="CREMA" 


Se ricordate però che si possono mettere più istruzioni su una stessa riga 
possiamo allora scrivere: 

200 REM LF*a> E' LA LISTA DEI LATTICINI 

210 LF*L0>=“LATTE" LF* <1 >=" PARMIGG I ANO ": LF* < 2 >=" CREMA " 


Dove i due punti: servono per separare le istruzioni successive su una stessa riga. 

Una istruzione di assegnazione può contenere qualunque operatore aritmetico o 
relazionale; per esempio: 

:00 V=3.24+7. 36/S .5 

Quest’ultima istruzione assegna il valore 4.17647059 alla variabile V; essa può 
essere equivalente a queste tre istruzioni: 


tao x=?.s6 
ne v=s. 5 
120 V=3.24+X/V 


che possono essere scritte su una unica riga: 

100 X»7.36 y=g, 5 24+X/V 
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Qui di seguito diamo invece alcuni esempi di assegnazioni che comprendono 
operazioni Booleane: 



Da ultimo vediamo come una stringa può essere ottenuta mediante il concatena¬ 
mento di altre stringhe: 


;00 7f="MONTE" 
200 " CERVI NO " 

200 r^=Vf+" 


Le istruzioni DATA e READ 

Quando le variabili, che necessitano di assegnare loro un valore sono molte, si può 
ricorrere alla coppia di istruzioni DATA e READ. Considerate questo esempio: 


0 IATh 10. 00.-4. 1EE5 


L’istruzione alla riga 10 definisce quattro valori numerici. Questi quattro valori 
sono assegnati a quattro variabili numeriche con virgola mediante l’istruzione della 
riga 20. Alla fine avremo: A = 10, B = 20, C = -4 e D = 16 x IO 5 . 

Se avete una o più istruzioni DATA allora potete pensare che i valori siano posti 
come in una “colonna”. Questa “colonna” di valori può essere costituita da una 
sola istruzione DATA come anche da più istruzioni successive. In questo disegno 
cerchiamo di chiarire il concetto: 


10 DATA 10. 20. 30. 40. 50. 60. 70. 80. 90. 100 


Primo dato — 



10 DATA 10. 20. 30. 40. 50 
20 DATA 60, 70, 80, 90, 100 


2 
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Le istruzioni READ hanno lo scopo invece di assegnare i valori, contenuti nelle 
istruzioni DATA, alle variabili elencate nella READ stessa. Se sono presenti più di 
una READ, l’attribuzione dei valori avverrà con il criterio che ogni istruzione 
READ prende i primi valori lasciati liberi dalla READ precedente. Con questo 
esempio cerchiamo di dare una illustrazione grafica: 


10 DATA 10. 20. 30. 40. 50. 60. 70. 80. 90. 100 



Istruzione RESTORE 

Supponiamo esita un puntatore che indichi qual’è il primo valore libero nella 
colonna di valori della DATA, allora mediante l’istruzione RESTORE possiamo 
riportare all’inizio tale puntatore. In altre parole possiamo utilizzare una seconda 
volta tutti i valori elencati in DATA. Per esempio: 


10 DATA 10. 20. 30. 40. 50. 60 70, 80. 90. 100 
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ISTRUZIONE DI DIMENSIONAMENTO 

Se una variabile con indice viene citata in un programma, il BASIC CBM le 
attribuisce automaticamente la dimensione dieci con possibilità di avere undici ele¬ 
menti. Cioè il suo indice può variare da 0 a 10. Se volete che la variabile abbia più o 
meno di undici elementi allora lo dovete dichiarare con una istruzione di “dimensiona¬ 
mento” DIM. Analogamente se avete una matrice con dimensione due o superiore e 
con qualunque numero di elementi, dovete dichiararla nella stessa istruzione DIM. Per 
esempio dimensioniamo alcune variabili che abbiamo già incontrato: 

DIM CPt<5> > FV$<3>.LFf<2) 

DIM SM*<3,5>- 

Una istruzione DIM può contenente quante si voglia variabili da dimensionare 
purché la lunghezza dell’istruzione non superi gli 80 caratteri. 

Il numero o i numeri che compaiono tra parentesi dopo le variabili nella DIM devono 
rappresentare i valori massimi che potranno assumere gli indici. Ricordatevi però che 
è sempre previsto che il valore più basso di un indice sia 0 per cui il numero effettivo 
di elementi è pari a quello citato nella DIM più uno. Per esempio CP$ (5) avrà 6 
elementi perchè dimensionata con CP$ (5). Analogamente SM$ (3,5) conterrà 24 
elementi cioè: (3+1) x (5+1) = 24. 

Se durante un programma richiamate una variabile vettoriale o matriciale con 
una dimensione o un indice non dichiarato nella DIM commetterete un errore di 
sintassi. 

ISTRUZIONI DI SALTO 

Normalmente un programma viene eseguito istruzione per istruzione a partire 
dal numero di riga più basso verso l’alto. Mediante le istruzioni di salto potete 
cambiare questo ordine di esecuzione. 

Istruzione GOTO 

GOTO è la più semplice istruzione di salto. Essa vi permette di stabilire in modo 
univoco quale sarà l’istruzione successiva. Considerate per esempio: 

20 

30 GOTO 100 
40 
50 
60 
70 
80 
90 
100 
1 10 
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L’istruzione alla linea 20 è una assegnazione che attribuisce un valore ad A. 
L’istruzione successiva è un salto che porta l’esecuzione del programma alla linea 
100 Possiamo quindi dire che in questa zona del programma le istruzioni saranno 
eseguite con l’ordine: ... 20, 30, 100 ... 

Ovviamente in qualche altro punto del programma esisterà una istruzione di 
salto alla linea 40 perchè diversamente questa instruzione non sarebbe mai eseguita. 

Potete saltare a qualunque linea anche se questa contiene solo i commenti REM. 
In tal caso il calcolatore prosegue subito alla linea successiva. Per esempio: 

20-sM=4.37 
,30*0010 70 
/ 40 
50 
\60 

V0nR£M QUESTO E' UN COMMENTO 
80* 

90 


Il programma salta dalla linea 30 alla 70 dove trova un commento per cui va 
subito alla 80. In questo caso avrete potuto saltare direttamente alla 80. 


0=4.37 
-30*GOT0 80 


/ 40 
/ 50 
\ 60 
\y?0 


REM QUESTO E' UN COMMENTO 


80 

90 


Istruzione GOTO calcolato 

L’istruzione GOTO calcolato permette di saltare ad una tra diverse linee a seconda 
che una certa variabile assuma il valore intero 1 o 2 o 3 etc. Per esempio: 
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L'istruzione alla linea 40 è il nostro ON ... GOTO ... calcolato. Il programma 
salterà alla linea 10 se A% = 1; alla linea 70 se A% = 2; alla linea 150 se A% = 3. Se 
A% dovesse assumere un valore diverso da 1 o 2 o 3 allora avremmo un errore. In 
quest’ultimo esempio vi mostriamo come è possibile percorrere in maniera diversa 
un programma a seconda di come la variabile A% del GOTO assuma valori diversi. 
Notete che la variabile A% assume il suo valore in funzione di quello di un’altra 
variabile B%: 


io e;:=4 
20 -e: 
so r':=e :-2 

40 OH fi’IGOTO 10.70,150 

ro - k : 

■so b::=5 

ROTO 30 

;50 ?e: 
ito b::=? 

170 GOTO 20 


Caricare questo piccolo programma e date il comando RUN. Vedrete apparire una 
successione di valori. 

Per esercizio provate a scrivere un programma che faccia apparire sul video la 
sequenza: 345345345 ... 


ISTRUZIONI DI CONTROLLO A CICLO 
Istruzione FOR NEXT 

Le istruzioni GOTO e GOTO calcolato vi permettono di programmare una 
qualunque sequenza logica di istruzioni. Molto spesso però vi troverete di fronte alla 
necessità di dover eseguire più volte una o più istruzioni ben definite. Per esempio se 
avete un vettore A(I) con 100 elementi e dovete attribuire i valori ai suoi elementi 
potreste scrivere 100 volte l’istruzione di assegnazione A(I) = valore. Ma questo 
modo di programmare sarebbe molto faticoso e banale. È molto più elegante allora 
pensare di eseguire 100 volte la stessa istruzione cambiando ogni volta l’indice I (da 
0 a 99) e il valore di attribuzione. Questo è possibile con le istruzioni di ciclo FOR e 
NEXT. Per esempio: 


10 DIM ROSO 
£0 FOR 1=0 T0 99 STEF' 1 
30 fìd>=I 
40 NEXT I 


Le istruzioni tra FOR e NEXT saranno eseguite più volte (nell’esempio 100 volte) 
e così, pur avendo scritto una sola volta A(I) = valore, otteniamo il caricamento di 
tutto il vettore A. 
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per vedere come le cose procedono provate a battere questo programma: 

10 DUI 

20 FOR 1=0 Tu 99 STEP 1 
30 0(1>=I 
35 

40 next i 

50 REM SE PONETE UH SALTO GOTO PILLO 
SO REM STESSA LINEA, IL CALCOLATORE 
70 REM ESEGUE UN CICLO DI ATTESO 
SO GOTO 80 

Come vedete ad ogni passaggio viene visualizzata la variabile A(I). Battete RUN. 
Vedrete apparire una colonna di 100 numeri da 0 a 99. Per fermare il programma 
premete STOP. 

Le istruzioni tra FOR e NEXT sono eseguite tante volte quanto è specificato 
nella stessa istruzione FOR. Nel nostro esempio la variabile di controllo del ciclo è I 
e viene stabilito che deve variare da 0 a 99 con incrementi di 1. Alla prima 
esecuzione I = 0 per cui avremo: 

30 O(@:>=0 


Alla seconda volta I viene incrementata del valore indicato dal STEP e cioè 1. 
Quindi avremo: 


30 H(1>=1 

E così via sino a che I raggiunge il valore massimo previsto di 99. Dopo questo il 
programma prosegue alla linea 50. 

Il valore di STEP può essere un qualunque numero intero. Provate a porlo eguale 
a 5 e rieseguite il programma. In tal caso il ciclo sarà eseguito 20 volte perchè 
incrementiamo I di 5 ad ogni passaggio. L’ultimo valore eseguito sarà I = 95 perchè 
al successivo I assumerebbe il valore 100 che supera il massimo previsto di 99. Se 
vogliamo adesso possiamo spostare il valore massimo e portarlo per esempio a 499: 
otterremo ancora 100 esecuzioni del ciclo, ma con valori di I e A diversi. Provate a 
fare queste modifiche ricordando però di cambiare anche il dimensionamento di A. 

È possibile anche che lo STEP sia negativo. In tal caso il valore iniziale di I deve 
essere superiore a quello finale. Per esempio poniamo lo STEP eguale a —1 e 
riscriviamo il nostro esempio così: 

10 DIM 0<99> 

20 FOR 1=99 T0 0 STEP -1 
30 0(I)=I 
35 i>, 

40 NEXT I 
80 GOTO 80 

È opportuno a questo punto precisare che i tre valori che si devono dare in una 
istruzione FOR possono essere inizialmente dati come valori con virgola o addirit¬ 
tura come espressioni. Se sono espressioni, esse vengono calcolate e ridotte quindi 
ad un valore numerico. Questi valori numerici vengono riportati sempre a valori 
interi mediante arrotondamento e solo, a questo punto, sono utilizzati come 
parametri del ciclo FOR NEXT. È molto probabile quindi che a causa dell’arroton- 


129 



damento, i vostri parametri non assumano quei valori interi che forse voi avete 
previsto. Vi consigliamo quindi di porre nell’istruzione FOR sempre valori interi. Se 
questi valori sono il risultato di una espressione è preferibile che la calcoliate 
separatamente così da essere ben sicuri che i parametri del ciclo assumano valori 
interi corretti. 

Spesso il valore del passo STEP è 1. In tal caso non è richiesto che scriviate STEP1 
perchè è sottinteso. Se non scrivete nulla il BASIC CBM assume che il passo sia 
unitario e positivo. Provate infatti a riscrivere: 

IO DIM A<99> 

15 REM IL PASSO I'EL CICLO E' UNO 
26 FOR 1=0 TO 99 
30 A<I)=I 
35 ?AU), 

40 NEXT I 

, 30 GOTO 30 


È anche possibile non indicare dopo NEXT la variabile del ciclo, ma è consiglia¬ 
bile farlo sempre per evitare equivoci e rendere il programma facilmente leggibile. 


Cicli nidificati (o “a fascio”) 

Abbiamo già detto che le istruzioni comprese tra FOR e NEXT costituiscono un 
ciclo perchè sono eseguite più volte di seguito. La presenza di cicli è molto frequente 
in un programma e spesso anzi è necessario avere un ciclo dentro ad un altro. Le 
istruzioni all’interno di un ciclo possono essere qualunque e perciò possono essere 
ancora quelle di FOR e NEXT, necessarie per costituire un altro ciclo interno. Ecco 
un esempio di nidificazione: 

10 DIM A<99> 

20 FOR 1=0 TO 99 

40 REM VISUALIZZA I VALORI DI A<I> 

45 REM APPENA ASSEGNATI 
50 FOR J=0 TO I 
60 ?A<J> 

70 NEXT J 
30 NEXT I 
90 GOTO 90 


Srutture complesse di cicli si possono avere anche in programmi moto corti. Ecco 
un esempio di nidificazione di cicli in cui, per semplicità, non abbiamo riportato le 
istruzioni intermedie: 


50 FOR 1=1 TO 10 

60 FOR X=25 TO 347 STEP 3 

100 FOR A=9 TO 0 STEP -1 

140 NEXT A 

200 FOR B=25 TO 100 STEP 5 

230 NEXT E 
300 NEXT X 
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500 FGR V=1 TD 20 STEP 2 

600 POP P=10 T0 20 

650 NEXT P 
700 NEXT V 

1000 POR 2=1 TQ 10 

1090 NEXT 2 
1200 HEXT I 

Il ciclo più esterno ha l’indice I. Esso contiene tre cicli tra loro separati con indici X, 
Y e Z. Il ciclo X a sua volta contiene altri due cicli con indici A e B. Il ciclo Y 
contiene il ciclo P. Cicli interni ad un altro devono usare una diversa variabili di ciclo. 
L'esecuzione di tale struttura può essere così schematizzata: 



L’uso di cicli tra loro nidificati è molto semplice. L’unico errore che potete 
commettere, ed è molto grave, è quello di concatenare i cicli cioè di terminare un ciclo 
più esterno prima di terminare quelli interni. Per esempio questa struttura è illegale: 


-POP 1 = 1 T0 10 
„60 -F0rV:=25 T0 347 
'100'TtMT I 

'200 j ti&-:t x 


STEP 3 


Se non indicate la variabile di ciclo nell’istruzione NEXT il calcolatore provvede 
da solo a tenerne conto ed esegue correttamente il ciclo. Se fate attenzione, vi 
accorgerete che esiste una sola possibilità corretta di chiusura dei cicli per cui il 
BASIC CBM può assegnare automaticamente ad ogni NEXT la sua variabile di 
ciclo. 
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È importante precisare che il BASIC CBM vuole un eguale numero di istruzioni 
FOR e NEXT. Supponete per esempio di avere due cicli uno interno all’altro, ma 
solo un NEXT. Allora il ciclo più interno sarà eseguito correttamente perchè trova 
un NEXT, mentre il ciclo esterno non trova un punto terminale. Se invece ponete 
più NEXT del necessario vi sarà dato un errore di sintassi. 


SUBROUTINE (O SOTTOPROGRAMMI) 

Può succedere, scrivendo un programma, che una piccola parte di esso debba 
essere scritta più volte cioè sia necessario eseguire più volte la stessa operazione. 
Supponete per esempio di avere un vettore A(I) a cui dovete attribuire valori 
diversi, cioè “ri-inizializzarlo”, in alcuni punti del vostro programma. Se per 
svolgere questa operazione sono sufficienti le tre istruzioni che abbiamo già incon¬ 
trato negli esempi precedenti, allora probabilmente sarà meglio riscriverle ogni 
volta. Ma se invece di sole tre istruzioni questa operazione dovesse richiederne 
molte di più, allora potreste pensare di rieseguire più volte lo stesso pacchetto di 
istruzioni facendo sì che le variabili coinvolte assumano ogni volta il giusto valore. 
In maniera grafica le cose possono essere spiegate così: 


Inizio del programma 



Istruzioni ripetute 


etc 


Se ora pensiamo di separare le istruzioni che ci interessano e di fare dei salti ad esse, 
realizziamo quello che in gergo vien detta una “subroutine” (o “sottoprogramma”). 
Questo modo di procedere può non sembrare una novità perchè basta ogni volta 
porre una istruzione di GOTO alla linea ove inizia la subroutine. Ma come fa la 
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subroutine a ritornare a punti diversi del programma principale se come abbiamo 
postulato le sue istruzioni sono sempre le stesse? 


Inizio del programma —*■ 


10 



100 GOTO 2000 
110 


190 GOTO 2000 
200 


250 GOTO 2000 
260 


' „ Subroutine 

2000 — Inizio 

--- ^ 

s ' 
s / 

' / 

/ 

/ 2150 — Fine 

/ "" ^ 

/ * 

< 


i 


7 Dove ( "*,/ 

/ il ritorno? x x i 

/ v 


480 GOTO 2000 
500 


etc 


Istruzione GOSUB 

Abbiamo visto che il problema concernente una subroutine è quello del ritorno al 
programma principale. Infatti se in un programma abbiamo due GOTO, per 
saltare ad una subroutine, cioè vuole dire che vi saranno due diversi punti a cui 
possiamo ritornare quando la subroutine sia stata eseguita. Per risolvere questo 
problema possiamo usare l’istruzione GOSUB che effettua il salto come la GOTO, 
ma in più ricorda dove si trova la successiva istruzione a cui ritornare dopo l’esecuzione 
della subroutine. Questo può essere illustrato così: 
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Al fine di avere il corretto ritorno al programma principale è necessario che ogni 
subroutine termini con l’istruzione RETURN. RETURN fa appunto ritornare alla 
linea che era ricordata da GOSUB. Vediamo in un esempio come le tre linee per 
inizializzare il vettore A(I) possano diventare una subroutine: 


£8 REM PROGRAMMA PRINCIPALE 

20 REM POTETE DIMENSIONARE LE VARIABILI BELLE 

30 REM SUBROUTINE NEL PROGRAMMA PRINCIPALE 

40 REM E PREFERIBILE PERO DIMENOIGNARE SEMPRE 

50 REM TUTTE LE VARIABILI ALL INIZIO BEL PRO- 

55 REM DRAMMA PRINCIPALE 

se DIM tì<99> 

70 GOSUB 2000 

80 REM VISUALIZZA QUALCOSA PER CONFERMARE 
85 REM IL RITORNO BALLA SUBROUTINE 
90 ?"QK RITORNO" 

100 DOTO 100 

2O00 REM SUBROUTINE! ! 

2010 FOR 1=0 TO 39 
2020 A(I)=I 
2030 ?A<I> J 
2040 NEXT I 
2050 RETURN 


Subroutlne nidificate 

Le subroutine possono essere nidificate. Questo significa che una subroutine può 
chiamare un’altra subroutine che a sua volta può chiamarne una terza e così via. Per 
nidificare varie subroutine non dovete fare niente di difficile. Basta porre le 
istruzioni di salto GOSUB e terminare la subroutine con RETURN. Il BASIC CBM 
provvede da solo a ricordare con ordine i punti di ritorno. Ecco un esempio: 


10 REM PROGRAMMA PRINCIPALE 
60 BIM A<99> 

70 GOSUB 2000 

80 REM VISUALIZZA QUALCOSA PER CONFERMARE 
35 REM IL RITORNO BALLA SUBROUTINE 
90 ?"0K RITORNO" 

100 GOTO 100 

2000 REM SUBROUTINE ESTERNA 

2010 FOR 1=1 TO 99 

2020 A<I)=I 

2030 GOSUB 3000 

2040 NEXT I 

2050 RETURN 

3000 REM SUBROUTINE INTERNA 
3010 ?A(I> 

3020 RETURN 


Questo programma ha spostato l’istruzione ? A(I) dalla prima subroutine ad 
un’altra. 


Istruzione GOSUB calcolato 

Le istruzioni GOTO e GOSUB sono molto simili. L’unica differenza è che 
GOSUB ricorda il punto di ritorno. Non dovete quindi meravigliarvi se esiste anche 
una istruzione GOSUB calcolato. Questa istruzione permette di saltare infatti ad 
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una tra diverse subroutine a seconda del valore assunto da un indice. Per 

esempio: 

; fui OH H G05UE 1000 • 500 , 5000 >2300 
110 

Quando il programma arriva alla linea 100 e se A = 1 viene richiamata la 
subroutine che inizia alla linea 1000. Se A = 2 viene invece richiamata la subroutine 
della linea 500. E così via A = 3 corrisponde alla subroutine della linea 5000 e A = 4 
a quella della linea 2300. Se A assume un qualunque altro valore diverso da 1,2,3 o 
4 il calcolatore vi darà un messaggio di errore e fermerà l’esecuzione del program¬ 
ma. Come abbiamo già detto l’istruzione GOSUB calcolato “ricorda” l’istruzione 
successiva prima di saltare alla subroutine (nell’esempio la linea 110). 

Più istruzioni GOSUB possono essere nidificate proprio come le analoghe 
istruzioni GOTO. 


Istruzione IF ... THEN 

Nell’istruzione IF ... THEN si usano spesso gli operatori aritmetici e relazionali 
che abbiamo già descritto in questo capitolo. Grazie a questo tipo di istruzione è 
possibile avere nei programmi delle capacità decisionali. Infatti dopo IF dovete porre 
una espressione e dopo THEN una o più istruzioni. Se l’espressione risulta “vera” 
allora le istruzioni dopo THEN saranno eseguite. Se invece risulta “falsa” le istruzioni 
dopo THEN non saranno eseguite e il programma passerà subito alla linea successiva. 
Ecco un esempio: 


10 IF THEN PRINT MSG1 

40 IF CC*<"M" THEN IN=0 
50 IF 0114 HND MOMI GOTO 66 

La parola THEN è opzionale e può essere omessa come nell’esempio della linea 50. 

Alla linea 10, se A = B + 5 verrà stampato MSG1. Diversamente il messaggio 
non sarà stampato. 

Alla linea 40 la variabile IN sarà posta eguale a 0 se la stringa CCS rappresenta 
una lettera dell’alfabeto tra A e L. 

Alla linea 50 si devono verificare due condizioni: se Q è minore di 14 e se M è 
diverso da MI, il programma salta alla linea 66. 

Se in questo momento non ricordate come si calcola una espressione posta dopo 
IF, allora vi consigliamo di rivedere la prima parte di questo capitolo. 


ISTRUZIONI DI INGRESSO E USCITA 

Molte volte abbiamo detto che per ottenere la visualizzazione di un dato dobbia¬ 
mo dare il comando PRINT oppure, in forma contratta, il punto interrogativo ?. 
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Come questo comando ne esistono molti altri che controllano il flusso dei dati da e 
verso il calcolatore. Questi comandi vengono chiamati di “ingresso/uscita” o con 
termine inglese di “input/output” oppure generalmente di “I/O”. I comandi più 
semplici e più frequenti sono quelli che regolano il trasferimento dei dati dalla tastiera 
al calcolatore e dal calcolatore al display video; di questi ne parleremo qui di seguito. 
Esistono poi altri comandi più complessi che controllano il trasferimento dei dati 
tra il calcolatore e le periferiche più importanti come le unità a disco o a cassette 
magnetiche, le stampanti, ecc... Di questi comandi c’è ne occuperemo nel capitolo 
6 . 

Cominciamo a vedere il comando PRINT che abbiamo già incontrato. 

Istruzione PRINT 

Ricordiamo che l’istruzione PRINT può essere contratta nella forma (?). 

Qualcuno può chiedersi perchè diamo il comando “print”, che vuol dire stampa¬ 
re, per visualizzare i dati su un display video e non diciamo invece “display”. La 
spiegazione sta nel fatto che i primi piccoli calcolatori avevano come principale 
unità di uscita una stampante e non un terminale video perchè allora erano molto 
costosi. 

L’istruzione PRINT visualizza un testo di stringa o dati numerici. La stringa deve 
essere racchiusa tra virgolette. Per esempio la seguente istruzione visualizza la 
parola “testo”: 


10 PRINT ''TESTO" 


Per visualizzare un numero potete porre dopo PRINT un numero o una variabile 
numerica: 


10 «{=10 
20 ■'5,i : i': 

L’istruzione alla linea 20 visualizzerà i numeri 5 e 10. 

Potete mescolare numeri e stringhe, ma per separare le varie grandezze dovete 
porre delle virgole. In questo esempio l’istruzione PRINT visualizza le parole 
“uno”, “due”, “tre”, ecc. e le corrispondenti cifre numeriche: 

10 ?" UNO ", 1, " DUE ", 2, " TRE ", 3, " QUATTRO", 4, " CINQIJE ", 5 

Se separate le variabili con delle virgole il calcolatore assegna automaticamente 10 
caratteri di spazio ad ogni variabile. 

Provate infatti a eseguire in modo immediato l’istruzione 10. Potete usare invece 
della virgola, per separare, il punto e virgola e allora non saranno lasciati spazi 
vuoti tra una variabile e l’altra. Per esempio: 
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10 PRINT "UNO"; 1 ;"DUE"; 2 ;"TRE";3;"QUATTRO";4;“CINQUE";5 


provate, come avete fatto prima, ad eseguirla in modo immediato. 

L'istruzione PRINT esegue automaticamente un ritorno del carrello al termine della 
visualizzazione. Se però dopo l'ultima variabile ponete una virgola o un punto e virgola 
allora “il carrello non ritorna a capo”. Se avete posto una virgola e se c’è un’altra 
istruzione PRINT nel vostro programma, allora la prima variabile di questa 
seconda PRINT verrà scritta dopo una spaziatura di 10 caratteri. Per vedere questo 
battete il seguente programmino e ponetelo in esecuzione con RUN: 

10 PRINT "UNO",1,"DUE",2 

20 PRINT "TRE",3,"QUATTRO",4 

30 GOTO 30 

A questo punto aggiungete una virgola in coda all’istruzione 10 ed eseguite nuova¬ 
mente il programma con RUN. Vedrete che le due righe visualizzate diverranno una 
sola. È opportuno che vi ricordiate però che quando battete RUN lo dovete fare su 
una riga libera e non sopra al programma! 

Provate ora a sostituire la virgola con il punto e virgola in coda all’istruzione 10 e 
poi eseguite il programma. Vi accorgerete che non vi sarà più spazio tra la cifra “2” 
e la parola “tre”. Analogamente altri spazi tra variabili possono essere rimossi 
sostituendo la virgola con il punto e virgola nell’istruzione PRINT. 

Nell’istruzione PRINT invece di inserire costanti numeriche è possibile porre 
nomi di variabili. Per esempio nella PRINT del programma precedente possiamo 
inserire la variabile A%(I) a cui assegneremo i valori interi da 1 a 5: 

10 FOR 1=1 T0 5 

20 axu>=i 

30 NEXT 

40 PRINT "UN0";fl':<l>; "DUE"; AJ!<2>; “TRE”;fl?i<3); "QUATTRO” ;A5«4>; 

“CINQUE";AX(5> 

50 GOTO 50 

Quando è possibile, è più elegante porre l’istruzione PRINT in un ciclo FOR 
NEXT, come nell’esempio seguente in cui anche le stringhe sono state associate alla 
variabile N$(I): 


10 DATA "UNO","DUE","TRE","QUATTRO","CINQUE" 
20 FOR 1=1 T0 5 

30 ax<i>=i 

40 READ N»(I) 

50 PRINT N*a>;A2<I>; 

60 NEXT 
70 GOTO 70 


Questo programma può essere ulteriormente migliorato. Provate per esercizio a 
togliere la variabile A%(I) e non usare N$ come vettore, pur ottenendo alla fine la 
stessa visualizzazione sul display. 
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Funzioni speciali di stampa 

Mediante opportuni comandi è possibile redigere, nella forma che ritenete più 
utile, la visualizzazione delle variabili e costanti di una istruzione PRINT. Nel gergo 
dei calcolatori si dice che si stabilisce un “format” per un testo di stampa (o di 
visualizzazione). Per esempio se volete scrivere un titolo in mezzo alla pagina 
potreste prevedere una stringa che contenga tutti i caratteri “spazio” necessari per 
portare il titolo in mezzo. Ma questo sarebbe ovviamente molto costoso, in termini 
di memoria del calcolatore, perchè dovreste memorizzare tutti questi spazi e per 
nulla elegante come programmazione. Per risolvere questi problemi di “format” 
sono state introdotte alcune opportune funzioni mediante le quali è possibile 
“arrangiare” come si vuole un testo da stampare (o visualizzare). Esse sono: SPC, 
TAB e POS. 

Funzione SPC 

Questa funzione da luogo ad una spaziatura di tanti caratteri quanto indicato dal 
numero posto come suo argomento SPC(N). Attenzione però che per spaziare solo di 
N caratteri, dopo SPC(N) dovete porre punto e virgola. Se ponete invece la virgola 
otterrete la stampa entro la decina di caratteri successiva. Per esempio per avere la 
parola inglese HEADING scritta in mezzo allo schermo da 40 colonne dovete dare 
l’istruzione: 


10 ?SPCU 6 ); "HEADING" 

Per semplicità potete ricordare che la funzione SPC non fa altro che far spostare 
il carrello di tanti posti quanti sono indicati nel suo argomento. Tutte le altre regole 
dell’istruzione PRINT rimangono invariate. 


Funzione TAB 


TAB è l’equivalente della funzione tabulazione di una normale macchina da 
scrivere. 

Supponete di dover stampare dei dati incolonnati. Sarà necessario allora stabilire 
da quali posizioni iniziano le varie colonne; per esempio: 


NUMERO DI COLONNA 


I 

0 

JONES, P. J 
BURKE. P. L 
ROBINSON, L. W 
etc. 


16 

431-25-6277 

447-71-7614 

231-80-8421 

etc. 


32 48 

1420.00 25874 

202500 46764 

2150.00 477 04 

etc etc 


In questo caso le colonne iniziano dalla posizione 0, 16, 32 e 48. (Ovviamente 
l’esempio si riferisce ad un display a 80 colonne). 
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Il modo di procedere più semplice, ma meno elegante, potrebbe essere quello di 
risente g )j spazi direttamente in una unica stringa che rappresenti tutta la riga: 

,0 ?"J0NES,P. J 431-25-6277 1420.00 258.74" 

Un’altra soluzione potrebbe essere data dall’uso della funzione SPC: 

,0 ?" JONES, P.J" ■ SPC<17> , *4.31 -25-6277“ ; SPC<5>, "1420.00",SPC<?> : "253. 74“ 

Se procedessimo così riga per riga dovremmo ogni volta calcolare gli spazi in 
funzione delle parole presenti. Con la funzione TAB viene invece stabilito in maniera 
univoca da quale posizione inizia ogni singolo dato. Nel nostro esempio scriviamo 
infatti: 

:0 ""JONES,P.J";TAB< 16>, "431-25-6277" ■ TRB<32>• "1420.00“ • 7RB<.48>, “258.74" 

Notate che i dati della terza e quarta colonna sono degli importi numerici che 
nell’esempio vengono stampati come stringhe. Se fossero stati trattati come numeri 
essi sarebbero stati allineati a destra e cioè in maniera diversa da quanto avviene per 
le stringhe. Provate da soli a riscrivere l’istruzione 10 usando variabili numeriche 
per i numeri e non variabili di stringa (se lo ritenete opportuno consultare il capitolo 
5). Ricordate poi che per rappresentare i numeri viene lasciato uno spazio per 
l’eventuale segno meno e non vengono scritti gli zeri a destra nella parte decimale. 

Funzione POS 

La funzione POS è Pultima delle funzioni di formato della PRINT. POS ritorna 
la posizione in quel momento occupata dal cursore. 

Cioè comunica all’operatore un numero eguale alla posizione in cui si trova in 
quel momento il cursore. La funzione POS richiede che si ponga l’argomento 0. 

Ecco un esempio: 


10 ?"LR POSIZIONE PEL-CURSORE E'";POS<0) 

Otterrete come risposta dal vostro calcolatore: 

?"LH POSIZIONE PEL CURSORE E ";PQS<0.> 

Lfi POSIZIONE PEL CURSORE E' 27 

Se cambiate la lunghezza della stringa posta nella PRINT, vedrete cambiare il 
valore ritornato dalla funzione POS. 

Istruzione INPUT 

Mediante l’istruzione INPUT il calcolatore si pone in attesa di ricevere dati dalla 
tastiera. Sino a che tutti i dati richiesti non sono stati caricati attraverso la tastiera, 
nessuna altra operazione può essere eseguita. 
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Quando scrivete l’istruzione INPUT dovete farla eseguire da una lista di una o più 
variabili. Quando poi l’istruzione sarà eseguita ad ogni variabile verrà assegnato un 
valore caricato attraverso la tastiera. E ovvio che a seconda del tipo di variabile, 
dovrà essere assegnato un valore nel corrispondente formato. Per esempio se una 
variabile è il nome di una stringa (cioè termina con $) allora dovremo battere alla 
tastiera un testo la cui lunghezza in caratteri può essere qualunque. Per meglio 
capire quanto detto provate ad eseguire questo piccolo programma: 

le INPUT HT 
l'O ?ft* 

30 GOTO 10 


Il calcolatore, per avvisarvi che sta eseguendo una istruzione INPUT e quindi 
aspetta da voi dei dati, vi stampa un punto interrogativo ? a cui dovete far seguire il 
dato numerico o stringa (neH’esempio è una stringa). In questo programmino 
abbiamo inserito anche una istruzione PRINT (linea 20) per farvi dare la conferma 
di quanto avete caricato. 

Come abbiamo già detto se le variabili nella lista della INPUT sono numeriche 
allora dopo il punto interrogativo, che vi vien dato come segnale di avviso, dovete 
battere dei valori numerici. Se nella lista della INPUT compaiono più variabili esse 
devono essere separate da virgole. Tali virgole in questo caso non hanno altro 
significato che quello di separatori. Vi mostriamo un esempio per l’ingresso di una 
stringa, un numero con virgola e un numero intero: 

10 INPUT rt.r.r:; 

20 'r* , r, fl>: 

30 GOTO IO 

Dovete battere un testo, una virgola, un numero con virgola, un’altra virgola, un 
numero intero e infine un ritorno carrello. Se commettete un errore di formato il 
calcolatore vi avvisa con due punti interrogativi. Dovete ribattere allora quest’ulti¬ 
mo valore, ma se vi compare sul display un altro punto interrogativo seguito dal 
messaggio “re-do from start” (“ripetere dall’inizio”) dovete ribattere tutti i dati. 

Provate a cambiare l’ordine di A$, A e A% nell’istruzione PRINT e poi eseguite il 
programma. 

Alcune volte è possibile assegnare un valore di tipo diverso, ma solo apparente¬ 
mente, rispetto alle variabili listate nella INPUT. Infatti potete dare un valore 
intero, in corrispondenza ad una variabile numerica con virgola, in quanto esso 
sarà automaticamente convertito in forma decimale. Non potete però fare vicever¬ 
sa! Non potete far entrare una stringa con variabili numeriche, ma potete benissimo 
dare valori numerici ad una variabile di stringa. Provate da voi a fare qualche 
esempio con l’istruzione INPUT. 

INPUT è una istruzione molto “esigente” e spesso un normale operatore non 
riesce a rispettare completamente la sua sintassi. Se i dati in ingresso devono essere 
dati da una persona non esperta di BASIC, dovrete scrivere dei programmi in grado 
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di prevenire ogni possibile errore di caricamento. Questi programmi, capaci di 
ovviare ad errori anche banali, vengono chiamati in gergo “a prova d’idiota”. Nel 
capitolo 5 tratteremo in dettaglio programmi per l’ingresso dei dati. 

Uno degli accorgimenti più semplici e più frequenti, per facilitare l’ingresso dei 
dati, è quello di usare la possibilità, che la INPUT offre, di visualizzare una stringa 
posta nella sua lista. Così in questa stringa possiamo far apparire un messaggio 
all’operatore concernente il formato delle variabili d’ingresso. 

Per esempio: 

10 INi’UT "DAMMI IL NUMERO 1"; N 
20 IF NOI THEN GOTO 50 
30 ?"0K" 

40 GOTO 40 

50 ?"HAI SBAGLIATO!" 

60 GOTO 10 

Istruzione GET 

L’istruzione GET permette l’ingresso di un singolo carattere e non richiede di 
premere il tasto RETURN. Il carattere battuto può essere un qualunque carattere tra 
quelli riconosciuti dal vostro calcolatore CBM oppure una cifra tra 0 e 9. Il dato in 
ingresso sarà interpretato come un carattere se nella lista di GET compare il nome 
di una stringa. Come in questo esempio: 


10 GET A» 
20 ?A# 

30 GOTO 10 


Quando ponete in esecuzione questo programma tutto ciò che è sullo schermo 
scorre via. Se provate a battere un carattere anche questo scorre via. La spiegazione 
di ciò è dovuta al fatto che l’istruzione GET non attende l’ingresso di un dato, ma 
suppone che sia già presente sullo schermo. Se necessario possiamo fare in modo che 
GET attenda uno specifico carattere mediante una istruzione IF: 


10 GET A» 

20 IF AfO"X" THEN GOTO 10 
30 ''A* 

40 GOTO 10 


Questo programma attende che entri la lettera X e non svolge alcuna altra funzione. 

L’istruzione GET può essere programmata così da poter ricevere ogni carattere 
della tastiera. Per spiegare questo dobbiamo prima ricordare che alla variabile di 
stringa, elencata nella GET, viene inizialmente assegnato il valore nullo 00 che non 
può essere ricevuto dalla tastiera, ma può essere imposto dal programma mediante 
due virgolette consecutive Ecco come può essere scritto il programma: 


10 GET A# 

20 IF Af="" THEN GOTO 10 
30 '-Af 
40 GOTO 10 
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Se l'istruzione GET riporta una variabile numerica, intera o con virgola, allora il 
dato in ingresso sarà interpretato come valore numerico. Inizialmente a tale variabile 
il calcolatore assegna il valore zero 0, che può essere però dato dalla tastiera, per cui 
vi può essere l’indecisione se tale valore 0 è stato dato in ingresso oppure no. p er 
questo motivo non si usa la GET per l'acquisizione di valori numerici. 

L’uso più comune della GET avviene in programmi di dialogo con l’operatore. 
Per esempio un programma può prevedere l’attesa di un operatore che quando sia 
presente debba battere una S per “si”. Ecco come potremmo scrivere questa 
routine: 

10 PRINT "CHIAMATA PER L' OPERATORE. BATTERE 5 PER SI” 

20 GET Fit 

■30 IF A*=”S" THEN GOTO20 
40 PRINT "OK" 

Questo programma non riscrive il dato in ingresso. Provate a modificarlo così da 
fargli riscrivere quello che battete alla tastiera a seguito dell’istruzione GET. 

ISTRUZIONI PEEK E POKE 

Le istruzioni PEEK e POKE dovrebbero essere trattate nel capitolo 7, ma 
preferiamo descriverle qui perchè abbiamo dovuto già usarle. 

I calcolatori CBM possono avere sino a 65536 posizioni di memoria indirizzabili, 
ognuna contenente un numero compreso tra 0 e 255. (Questo estremo superiore è 

2 8 — 1). Tutti i programmi e i dati sono sempre convertiti in una sequenza di numeri 
memorizzati appunto nella memoria del calcolatore. 

L’istruzione PEEK vi permette di leggere il contenuto di qualunque posizione di 
memoria. Per esempio: 


te a::=peek<200> 

Questa istruzione assegna il contenuto della posizione di memoria 200 alla variabile 
A%. L’argomento della PEEK può essere anche una variabile intera o una espres¬ 
sione intera, ma verrà sempre calcolato come valore intero per indicare una 
posizione di memoria. 

L’istruzione POKE scrive invece un valore in una posizione di memoria. Per 

esempio: 


20 POKE 3000, A?: 

scrive il contenuto della variabile A% nella posizione 8000. L’argomento della 
POKE può essere un numero, una variabile o una espressione con valore tra 0 e 255. 
Un valore con virgola viene convertito in intero. 

Nelle memorie a sola lettura ROM potete applicare solo l’istruzione PEEK, 
mentre in quelle RAM a lettura/scrittura è evidente che potete applicare sia la 
PEEK che la POKE. 
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ISTRUZIONI end e stop 

Le istruzioni END e STOP fermano l’esecuzione del programma. Se però lo ritenete 
necesario il programma può continuare battendo CONT sulla tastiera. Non è obbliga¬ 
torio inserire queste istruzioni in un programma, ma ne rendono la stesura più 

corretta. 

In molti degli esempi precedenti, per fermare l’esecuzione del programma, 
abbiamo posto una istruzione di salto a se stessa. Per esempio: 

50 GOTO 50 

continuerà indefinitivamente ad eseguire il salto dalla linea 50 alla stessa linea. 
Diversamente avremmo potuto porre l’istruzione STOP e avremmo avuto il se¬ 
guente messaggio: 

BREAK IN XXKX 
REflDV 


che ci conferma che il programma si è fermato alla linea XXXX. Questo avviso è 
molto importante, se avete più di uno STOP nel vostro programma, perchè vi viene 
detto dove il programma si è fermato. 


FUNZIONI 

Le funzioni sono un altra componente molto importante del BASIC CBM. Esse 
sono simili sia alle variabili che alle istruzioni. 

Forse il modo più semplice per capire che cosa è una funzione è fare un esempio: 

IO A=S0R(B> 

La variabile A è posta eguale alla radice quadrata di B. SQR è appunto la funzione 
radice quadrata (“Square root”). Ecco invece una funzione di stringa: 

20 C*=LEFT*(D*.2> 

La stringa C$ è posta eguale ai primi due caratteri della stringa D$. 

Le funzioni possono sostituire qualunque variabile o costante di una istruzione 
BASIC tranne il caso di una-variabile a sinistra del segno =. In altre parole potete 
scrivere A = SQR(B) ma non potete mai porre SQR(B) = A! 

Abbiamo già incontrato alcune funzioni come SPC, TAB, POS e PEEK. 

Vi illustriamo ora come usare le funzioni e vi diamo le specifiche di quelle 
principali. Nel capitolo 8 potrete invece trovare la descrizione dettagliata di tutte le 
funzioni del BASIC CBM. 

Una funzione è caratterizzata da un nome, costituito da una o più lettere, e da 
uno o più argomenti posti tra parentesi. Per esempio SQR è il nome della funzione 
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“radice quadrata di” e B il suo argomento: SQR(B). 

Nell’altro esempio C$ = LEFTS (D$,2), LEFTS è il nome della funzione mentre 
D$ e 2 sono gli argomenti. 

In termini generali una funzione può avere uno di questi due formati: 



funzione (arg 1) 
funzione (arg 1. arg 2) 



Argomento singolo per una funzione 
con un solo argomento 


Due argomenti per le funzioni 
con due argomenti 

Lettere che specificano una funzione 


Alcune funzioni richiedono però tre argomenti. 

Importante: ogni argomento può essere una costante, una variabile o una espres¬ 
sione. 

Una funzione che appaia in una istruzione sarà calcolata prima di ogni altro 
operatore. Cioè essa sarà ridotta ad un singolo valore numerico o ad una stringa 
prima di procedere al calcolo delle altre componenti dell’istruzione. Per esempio in 
questa istruzione: 


10 B=24. Z*< SOR <C> +5> -S INC0.2+D> 

SQR e SIN sono calcolate per prime. Supponiamo che SQR(C) = 6.72 e SIN(0.2 
+D) = 0.625; la linea 10 diviene: 

10 8«24. ?*(€. 72+5>-0.625 


che non presenta alcun problema di esecuzione. 

FUNZIONI ARITMETICHE 

Le funzioni aritmetiche che potete usare nel BASIC CBM sono le seguenti: 

INT Converte l'argomento frazionario in un valore intero per tronca¬ 

mento 

SGN Ritorna il segno dell'argomento: + 1 per i numeri positivi, -1 

per quelli negativi e 0 per l'argomento nullo 

ABS Ritorna il valore assoluto dell'argomento. I valori positivi resta¬ 

no inalterati, i negativi sono convertiti in positivo 

SOR Calcola la radice quadrata dell'argomento 

EXP Calcola la potenza e a, 9 dove "e" è la base dei logaritmi naturali 
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, LOG Calcola il logaritmo naturale dell'argomento 

RND Genera un numero a caso (vedere il capitolo 5) 

SIN Ritorna il valore trigonometrico seno dell'argomento; l'argo¬ 

mento è espresso in radianti 

COS Ritorna il valore trigonometrico coseno dell'argomento; l'argomento 

è espresso in radianti 

TAN Ritornailvaloretangentedell'argomento; l'argomento è espres¬ 

so in radianti 

ATN Ritorna il valore arcotangente dell'argomento; l'argomento è 

espresso in radianti 

Cercate di usare sino da ora le funzioni nei vostri programmi. Se però non 
imprendete il significato matematico di qualcuna, come forse SIN, COS e TAN, 
non preoccupatevene e concentrate la vostra attenzione sulle funzioni che conosce¬ 
te bene. 

Ecco un esempio di programma che usa la funzione INT: 


10 0=2. 74 3 
20 B=INT<fl)+? 
30 _ 'B 
40 STOP 


Quando eseguite questo programma il risultato che viene visualizzato è 9 poiché la 
parte intera di A è 2. Per esercizio provate a cambiare la linea 10 con INPUT e la 
linea 40 con GOTO 10. Otterrete un programma ciclico che vi permette di analizza¬ 
re come opera la funzione INT. 

Il seguente esempio si presenta invece più complesso: 


10 INPUT R,B 

20 IF LOGCRKO THEN H=l/H 
30 ?SQR(fl)*EXP(B> 

40 GOTO 10 


Se conoscete già la funzione LOG provate allora a cambiare la linea 20 con un’altra 
funzione matematica. 

L’argomento di una funzione può essere ancora una funzione. 

Ecco un esempio: 


30 ?SQR(fW€XPt'*>*3> 


Provate a usare funzioni aritmetiche in modo immediato inserendole, dopo una 
PRINT, in una espressione aritmetica. 


FUNZIONI DI STRINGA 

Le funzioni di stringa permettono di elaborare in vari modi le stringhe. Potete 
non conoscere alcune funzioni matematiche, ma dovete invece sapere usare molto 
bene tutte le funzioni di stringa. 
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Le funzioni di stringa del BASIC CBM sono le seguenti: 


STR$ 

VAL 


CHR$ 

ASC 

LEN 

LEFTS 

RIGHT$ 

MID$ 


Converte un numero nel suo equivalente come stringa di carat¬ 
teri 

Converte una stringa numerica nel suo numero equivalente 
(solo se il numero assume un valore accettabile dal calcolato¬ 
re) 

Decodifica un codice numerico ASCII 
Codifica nel codice numerico ASCII 
Ritorna il numero di caratteri di una stringa 
Estrae la parte sinistra di una stringa 
Estrae la parte destra di una stringa 
Estrae la parte interna di una stringa 


In generale le funzioni di stringa vi permettono di determinare la lunghezza di una 
stringa, di estrarne una parte e di convertire i suoi caratteri in numeri con il codice 
ASCII e viceversa. Queste funzioni possono avere uno o due o tre argomenti. Ecco 
alcuni esempi: 


STR*(14> 

•_£N<"ABC"> 

i_EN<fì*+B*> 

LEFT$(ST$, 1 > 

FUNZIONI DEL SISTEMA 

Per completare la trattazione delle funzioni vi descriviamo anche le funzioni del 
sistema. Queste funzioni saranno però usate solo quando avrete una buona espe¬ 
rienza di programmazione. L’unica funzione che potete usare facilmente, sin da 
adesso, è quella che vi da l’ora come se il calcolatore fosse un orologio. Essa serve 
per segnare eventuali elaborati che richiedano di sapere quando sono stati eseguiti. 

Le funzioni del sistema sono: 

PEEK Legge il contenuto di un byte di memoria 

Tl$, TI Ritorna l'ora del giorno data dall'orologio del calcolatore 

FRE Ritorna il numero di byte ancora disponibili di memoria RAM 

SYS Trasferisce il controllo ad un sottosistema 

USR Trasferisce il controllo ad un programma scritto in assembler dal¬ 

l'utente 


FUNZIONI DEFINITE DALL’UTENTE 

Oltre alle funzioni artimetiche standard del BASIC CBM potete usare funzioni che 
voi stessi avete definito. 
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Non potete*però definire mai funzioni di stringa! Ecco un esempio di come si usa 
DEF FN per creare una nuova funzione: 

:e deffnp<x>«i0®#:: 

2© INPUT Pi 
30 ■•Pt.FNP'PC 
40 GOTO ì'0 

DEF FN è l’istruzione per definire una nuova funzione. Essa deve essere seguita dal 
nome di una variabile numerica con virgola. Nell’esempio la variabile è P per cui la 
funzione diviene FNP. Se la variabile fosse stata AB allora la funzione sarebbe stata 

fnab. 

Nella istruzione DEF FN dopo il nome della variabile deve comparire un 
argomento, anche lui sotto forma di variabile, posto tra parentesi. 

Questo nome della variabile argomento ha però la caratteristica di valere solo 
“localmente” nell’ambito dell’istruzione DEF FN. Ciò significa che contempora¬ 
neamente nel programma può esistere una variabile con lo stesso nome che assume 
un valore indipendente dall’argomento di FN. Nell’espressione che compare sul 
lato destro di DEF FN possono essere presenti, ma ciò non è obbligatorio, sia la 
variabile argomento sia altre variabili del programma. 

Quando la funzione FN viene richiamata, con uno specifico valore per l’argo¬ 
mento, tale valore entra allora nell’espressione di definizione DEF FN, mentre le 
altre variabili mantengono il valore da esse posseduto in quel momento. L’espres¬ 
sione viene quindi calcolata e il risultato viene assegnato alla FN. 
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CAPITOLO 5 


CARATTERISTICHE DEI CALCOLATORI 

CBM 


In questo capitolo descriviamo le caratteristiche hardware dei calcolatori CBM e 
le tecniche di programmazione. 


CARATTERISTICHE HARDWARE 


BUFFER DELLA TASTIERA 

Se premete due tasti contemporaneamente, o premete un secondo tasto prima 
che il primo sia visualizzato, allora una delle battute andrebbe persa se la vostra 
tastiera non fosse dotata di “buffer”. Il “buffer” delle tastiere CBM permette di 
“ricordare” le battute sino a che esse siano visualizzate sul display. 

Questo buffer permette di ricordare una o più battute, fino ad un massimo di 
dieci, mentre le precedenti sono in elaborazione. Senza questo buffer battute molto 
veloci andrebbero perse. Per esempio se la battuta 2° viene data prima che la battuta 
1° sia elaborata, allora il calcolatore CBM memorizza la battuta 2°. A tempo debito 
la battuta 2° viene prelevata dal buffer ed elaborata. Questa caratteristica delle ta¬ 
stiere CBM è molto utile perchè vi permette di battere i caratteri molto veloce¬ 
mente. 

Descrizione del buffer 

Tutti i calcolatori CBM hanno un “buffer” (memoria tampone) di 10 caratteri per 
memorizzare i caratteri che vengono battuti alla tastiera. 

Per illustrarvi come funziona questo buffer caricate e ponete in esecuzione il 
programma PROVA della Figura 5-1. Premete quindi un tasto e mentre il display 
viene riempito con questo carattere battete dieci altri diversi caratteri sulla tastiera. 
Ogni carattere che avete battuto verrà prelevato e usato per riempire lo schermo. 

Vediamo più in dettaglio che cosa succede. 
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Ogni volta che premete un tasto il carattere corrispondente va ad ocupare la 
prima posizione del buffer della tastiera. Per esempio se premete A avrete: 


Buffer dalla 
taattara 



Il calcolatore tiene conto sia del numero di caratteri presenti nel buffer sia della 
posizione del prossimo carattere che deve essere prelevato. Ogni volta che l’istru¬ 
zione GET riceve un carattere un puntatore si sposta per indicare il prossimo 
carattere. 

Se voi quindi battete dei caratteri, mentre il programma è occupato a visualizzare 
tutto lo schermo con A, allora questi caratteri andranno a occupare posizioni 
successive libere nel buffer. Nel disegno possiamo illustrare questo così: 

Buffer della 
lattiera 



Il programma PROVA, dopo aver visualizzato la A, preleverà il secondo caratte¬ 
re B e lo visualizzerà su tutto lo schermo. E così di seguito per tutti i caratteri che 
trova nel buffer. 

Se avete battuto più di dieci caratteri allora il puntatore ritorna alla posizione 1 
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cr tutti i modelli CBM tranne che per la serie 8000). Per esempio se avete battuto 
le prime 11 lettere dell’alfabeto da A a K, allora la K andrà a sovrapporsi alla A: 


Buffar dalla 
taatlara 



K si sovrappone ad A 


Succede così che quando il calcolatore va per prelevare un altro carattere ritrova il 
puntatore ancora nella prima posizione e “pensa” quindi che il buffer sia vuoto. 
Attenzione quindi che se battete 11 caratteri o multipli di 11 otterrete, nel program- 


•0 REM ************** PROVA ************** 
20 REM 

30 REM VISUALIZZAZIONE CONTINUA IH UN 
40 REM CARATTERE BATTUTO ALL TASTIERA 
50 REM 

60 REM *************************************** 

30 PRINT" BATTI UN TASTO 0 CR> PER TERMINARE" 

1O0 OET Ct IF C*="" GOTO 100 

105 IF C*=CHR*C13) GOTO ITO 

110 PRINT "IT REM PULISCE LO SCHERMO 

120 FOR 1=1 T0 320 : REM 320240=23 

130 PRINT Ct; 

140 NEXT 

150 PRINT"UFFA!" 

160 GOTO 30 
170 END 


Figura 5-1: Programma PROVA 


ma PROVA, lo stesso risultato come se ne aveste battuto uno solo. 

Se batte invece 12 o 20 caratteri otterrete la stampa del primo e poi quella dal 12 
in avanti. Per esempio battete A e poi durante la visualizzazione di A, battete B, C, 
D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S e T. 


151 




Primi 10 
caratteri 


Secondi dieci 
caratteri 


1 

A 


K 

2 

B 


L 

3 

C 


M 

4 

0 


N 

5 

E 


0 

6 

F 


p 

7 

G 


0 

8 

H 


R 

9 

i 


S 

10 

J 


T 


Carattere che sarà 
visualizzato dopo la A 


Otterrete sullo schermo le visualizzazioni di: A, L, M, N, O, P, Q, R, S e T. 


Primi dieci Secondi dieci Ultimi dieci 

caratteri caratteri caratteri 


—► i 

A 


K 


U 


2 

8 


l 


V 

-Carattere che sarà 

3 

C 


M 


w 

visualizzato dopo la A 

4 

D 


N 


X 


5 

E 


0 


Y 


6 

F 


p 


z 

-Ultimo carattere 

7 

G 


Q 


(O) 

visualizzato 

8 

H 


R 


(RI 


9 

1 


S 


(S) 


10 

j 


T 


(Ti 



L’effetto negativo si ottiene sempre ogni 11 caratteri. Se infatti battete inizial¬ 
mente A e B e poi le lettere C, D, E, F, G, H, I, J, K e L otterrete che questi ultimi 10 
caratteri siano cancellati via. 

La serie CBM 8000 scarta i caratteri d’ingresso che gli altri modelli conservano 
con il buffer d’ingresso. 

Svuotamento del Buffer prima dell’istruzione GET 

Il buffer della tastiera può essere un valido aiuto, come nel caso del programma 
PROVA, ma può anche causare notevoli inconvenienti. Se avete inavvertitamente 
battuto un carattere questo vi rimane nel buffer e può causare irregolarità nel 
programma. Per evitare questo potete programmare un ciclo per vuotare il buffer 
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prima di leggervi una risposta attesa dalla tastiera. Questo ciclo può essere così 

scritto: 

95 FOF: I-lTCUd 6ET C* NEXTI 
100 GET C* IF C#="" GOTO 100 

L’istruzione alla linea 95 vuota il buffer semplicemente leggendo tutti i suoi dieci 
valori. 

Se ora provate a eseguire il programma PROVA con l’aggiunta della linea 95 vi 
accorgerete che non potrete più caricare automaticamente il buffer con le lettere che 
volete visualizzare. 


CONCATENAZIONE DI STRINGHE 

Le stringhe CBM possono contenere sia caratteri alfabetici, che numerici, che 
grafici o una loro qualunque combinazione. Spesso è utile scrivere stringhe abba¬ 
stanza corte e poi unirle tra loro come gli anelli di una catena. 



Supponete per esempio che vogliamo creare una stringa Z$ che contenga tutte le 
lettere dell’alfabeto. Per fare questo possiamo unire tre stringhe che contengono 
ciascuna una parte dell’alfabeto. Il disegno che segue vi illustra chiaramente il 
concetto: 


A$ 



s$ 


f AlBlCTDTÈfFTGlHllP|j|KlLlMlNlO|PfOTa E1t|U|V|w[x1yIz1 


Z$ I AiB[CIDIelFIG|HlllJ|K|L|M|N|Q|P|Q|R|S|T|UIVlWIXlYIZl 


Per unire due stringhe si usa il segno “+”. Il segno di somma infatti oltre a 
sommare valori numerici permette anche di concatenare due stringhe. In Tabella 
5-1 sono riportati esempi esplicativi a tale riguardo. 
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Tabella 5-1: Operazioni Addizione (+) 


Segno 

Tipo 

Esempio 
di istruzione 

Operazione 

Risultato 

+ 

numeri 

P = 2 + 3 

2 + 3 

P = 5 

+ 

variabili numeriche 

Q = T + S 

12345 

+11111 

Q = 23456 

T = 

2 C 

4 E 


S = 

1 

1 1 


23456 

+ 

stringhe alfabetiche 

R$ = A$ + F$ 



A$ = / 

B 

: d 

E 

lAlBlClDlEl iFlGlHlllJ] 

R$ =1a|b|C|D|E|F|G|H||[j| 

F$ = 

G 

H 1 

J 




+ 

stringhe numeriche 

Q$ = T$ + S$ 



T$ = 

2 

3 4 


|1|2|3|4|5|. |1|1|1|1|1| 

Q$=|i|2|3|4|5!i|1|1|1ÌÌ] 

S$ = 

1 

1 







Attenzione però! Non è possiebile separare due stringhe con il segno di sottrazione 
” come si potrebbe pensare in analogia all’uso del segno “+” per unirle. Per 
esempio per creare la stringa con le lettere dell’alfabeto da J a Z non è possibile 
‘'sottrarre” a Z$ la stringa A$ cioè scrivere: 

Hr-wf-fif •»-Errato 

Provate da voi caricando le stringhe A$, J$ e S$ e dando l’istruzione X$ = Z$ — A$. 
Otterrete il messaggio di errore ?TYPE MISMATCH ERROR IN LINE 50: 

10 "ABCDEFGHI“ 

20 J*="JKLMNOPQR" 

30 S#="STUVWXVZ" 

40 Z*=A*+J*+S* 

50 X*=Z*-Fl* -- Errato 

60 PRINT X* 

RUN 

••TVPE MISMATCH ERROR IN LINE 50 

L’unico operatore aritmetico valido per le stringhe è il segno di addizione 
Gli altri operatori non sono validi sebbene siano accettati gli operatori 

Booleani “< > =” usati per il confronto di due stringhe. 

Se dovete estrarre'parte di una stringa potete usare le funzioni di stringa che ab¬ 
biamo già visto: LEFTS, MIDI e RIGHTS. 

Il problema che ci siamo posti prima può essere così risolto: 


50 X*=RICHT» < Zt , 1 ?> 

X$ = RIGHT$( |A|8[CiDIE|F|G|H|l|J|K|L|M|Nl0|PlQ|R[S|Tltj|VlWlX|YlZ 1 .17) 
X$ = I JlKlLlMlN IQlPlQlRlSlTlUl VlW|X|Y|Zl 
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oppure 


unendo J$ e S$: 


50 x*=j»+•=.* 

X$ = |j|K|LlMlNlO|P|Q|R| -r fsTnulVlW[xTYlZl 
X$= 1j|K|L|M|N|Q|P|Q|R[S|T|U|V|W|X|Y|Z| 

Concatenamento su schermo o stampante 

Se il concatenamento deve avvenire solo su un supporto di uscita come il display 
o una stampante, allora potete usare semplicemente l’istruzione PRINT con il 
segno di punto e virgola come separatore. Infatti se proviamo a scrivere: 


PRINT A*:J*.:S* 

ABCDEF&HIJKLMN0PQRSTUVWXV2 


otteniamo il concatenamento apparente delle stringhe. 

STRINGHE GRAFICHE 

Le stringhe di caratteri grafici possono essere concatenate come qualunque altra 
stringa. Questo permette di tracciare facilmente diagrammi e disegni. 

STRINGHE NUMERICHE 

Le stringhe numeriche sono caratterizzate dal fatto di contenere solo caratteri 
numerici. Esse possono essere create in due maniere che portano a risultati legger¬ 
mente diversi. 

Quando una variabile numerica viene assegnata ad una stringa numerica mediante 
la funzione STR$, anche il suo segno viene trasferito (uno spazio per i numeri 
positivi e il segno ” per i negativi). Ecco un esempio: 

10 AB»12345 
20 T*«STR*<AB> 

30 PRINT"AB=";AB 
40 PRINT"T*=";T* 

RUN 

AB= 12345 
T*= 12345 


Se invece creiamo la stringa numerica ponendo direttamente tra le virgolette delle 
cifre, dobbiamo prevedere noi se il numero è positivo o negativo (cioè porre lo spazio 
oppure il segno meno). 
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Ecco un esempio: 


IO AB*12345 
20 T*="12345" 

30 PRINT"AB=",AB 
40 PRINT"T*=";T* 

RUN 

A£= 12345» - Uno spazio viene inserito 
Tf=12345»--Nessuno spazio 


Concateniamo ora due stringhe numeriche T$ e Q$ per creare la nuova stringa 
W$. Supponiamo per esempio che W$ debba contenere tutte le cifre 1,2,3,4,5,6,7, 
8, 9 e 0. Allora possiamo scrivere: 

10 T=12345 
20 0=67830 
30 T*=STR*<T> 

■IO Qt=STR*<G> 

50 l'ir=Ti+Qt ■» — Crea una nuova stringa W$ 

60 PRINT"W*=".:W* 

RUN 

;»r= 12345 67380 

Perchè compaiono due spazi davanti a 1 e 6? Questo è avvenuto perchè i due numeri 
originari T e Q erano positivi e quindi è stato mantenuto il loro segno. 

T l i 1 2 3 4 5l 0 itf67890l 

T$ Ì tf[1|2l3i4|5| Q$ là|6|7|8|910| 

Di conseguenza quando le due stringhe T$ e Q$ sono state concatenate, per formare 
W$, sono rimasti i due spazi che rappresentavano il segno più. 

t$ + o$ w$ 

l tf|1|2|3|4|5i |Bj6|7l8l9|0| |K |l|213|4l5ltfl6|7(8|9l0| 

Vediamo adesso come possiamo fare per togliere questi spazi bianchi. Siccome 
noi volevamo conservare sole le cifre numeriche delle stringhe T$ e Q$ possiamo 
allora usare le funzioni LEFTS, MID$ e RIGHTS per estrarre quella parte delle 
stringhe che ci interessa. Nel nostro caso noi vogliamo tutti i caratteri a destra del 
primo per cui possiamo scrivere T$ = RIGHTS (T$, LEN (T$)— 1 ): 


Prima Dopo 

T$ I WT2T3l4T5l -» T$ fT]2i3|4|5l 
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]n pratica diciamo al calcolatore di considerare le stringhe T$ e Q$ a partire dal 
secondo carattere. Dopodiché possiamo concatenare le due stringhe: 


W$=RIGHT$(T$.IEN(T$)-1>+RIGHT$(Q$.LEN(Q$)-1I 


Toglie gli spazi 
anteriori di T$ 


Toglie gli spazi 
anteriori di 0$ 


Concatenamento 
di T$ con Q$ 


In definitiva possiamo scrivere questo programma: 


10 T=12345 
T 12345| 

20 Q*€7S'30 
Q = | tf67890j 
30 T*=STR*<T> 

T$=mnm 

40 0*=STRJ<G> 

0$ = |al6|7|8|9|0| 

50 Uf=RIGHT*<T# , LEN< T*>-1>+RIGHT*< LEN< QS >- 1> 
W$ = RIGHT$(T$.6-1) +RIGHT$(Q$,6-1I 

W$ = RIGHT$(T$.5I +RIGHT$(Q$.5) 

W$ = T$ |1| 2|3|4|5! +0$ I6I7I8I9I0I 

W$ = fl TCT3T4T 5l 6[7|8l9lÒl 
60 PRIMT "W#=",Wf 
RUM 

1234567330 


Avrete notato però che non è stato fatto alcun controllo dei segni dei due numeri. 
Se ambedue fossero negativi allora bisogna mantenere il segno contenuto in T$ che 
verrebbe trasferito a W$. Se infine le due stringhe avessero segni diversi non 
potrebbero essere concatenate. 


PROGRAMMAZIONE DI INGRESSO E USCITA 

Appena comincerete a programmare vi accorgerete che la parte di un program¬ 
ma che interessa le operazioni di ingresso e uscita è la più delicata. 

Quasi tutti i programmi necessitano di dati che devono essere dati dalla tastiera e 
spesso questi dati sono molto numerosi. Ma le difficoltà non riguardano solamente 
la quantità dei dati bensì anche la possibilità dell’operatore di commettere errori. 
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Un programma efficiente deve prevedere che l’operatore possa umanamente commet¬ 
tere errori. 

Analogamente nella fase di uscita non basta dare una sfilza di PRINT p er 
stampare il risultato di un lavoro, ma bisogna anche rendere facilmente leggibile 1 0 
stampato di uscita. 

Fortunatamente il BASIC CBM è ricco di istruzioni che permettono di programma¬ 
re in forma molto professionale le operazioni d’ingresso e uscita. Analizzeremo 
adesso alcune di queste possibilità prima di entrare nei dettagli di una buona tecnica 
di programmazione. 


ISTRUZIONE PRINT 
Uso del “punto e virgola” 

Normalmente l’istruzione PRINT comporta un ritorno del carrello al termine 
della sua visualizzazione. Questo significa che una seconda PRINT inizierebbe ad 
operare all’inizio della riga successiva. Osservate attentamente questa linea di 
programma; tutte le W sono visualizzate all’inizio di una nuova linea: 

e#="ir FOP 1=1 TO e®0:? c*; : NEXT : ?"UFFft!" 

w 

H 

w 

M 

w 

w 

w 

N 

w 

M 

w 

w 

w 

w 

I>1 

w 

w 

M 

u 

w 

'"JFFfi ! “ 

REFlDV. 

« 


Un segno di “punto e virgola”, che appaia dopo una variabile in una istruzione 
PRINT, darà luogo alla stampa della variabile seguente nella posizione subito succes¬ 
siva. Se quindi l’ultimo carattere di una istruzione PRINT è il allora non avremo 
il ritorno a capo. In questo semplice programma le W sono appunto scritte tutte di 
seguito su 20 righe e 40 colonne. 
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JEXT ""’UFFR ! " 



Wl-JWWWWWWWWWWWWNWWWWWWWWWWWWWWWNWWWWWWWWW 

WWWWWWWWWWWWWWWWWWUIW1JWWWWWWWWWWWWWWWWWWW 

MIJIJIJWWWWUUUWWWWWWWWWWWWWWWWWWWWI'JWWWWWWWW 

UIJWWWWWWIJWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

WIJWWWWWUWWWWIJWWWWWWWWWWWWWWWWWWWWWWWWWWW 


IJWIJWWWWWIJIJWWWUIJWUWWWWWWWWWUWWWWWWWWWWWWW 

WWWWWWWWWWWWWWWWWWWWWWWMWWWWWWWWWWWMWWWW 


WWWUWWI'JWIJWWIJWWWWWWWWWWWWWWHWWWWWWWWWWWWW 

1U-JWWNWWWWWWWWWHWWWWWWWWWWWWWWWUIWWWWWWWWW 

iJlJinjlJWWlJl'JWWWWWWWWWWWWNWUWWWWWWWWWWWWWWWW 

WWWWWWWWWNWWWWWWWWWWWWWWWWWWWWWWWMWWWWUIW 

IJIJKIWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

HlilJWWWWUWNWWlII'IlJWWWWWWWWWWWWWWWWWWWWWWWWW 

WWWWWWUWWWWWWUIWWWWWWWlJWWWWWWWWWWWWWiJWWWW 


'JFFR ' 


F'EFlBV. 

m 

La variabile I nel ciclo FOR NEXT è usata come contatore per calcolare il 
numero di W da visualizzare. La prima W appare ovviamente all’inizio di una riga, 
ma poi tutte le altre sono poste di seguito tranne il caso in cui una riga dello schermo 
è piena e allora forzatamente si effettua un ritorno a capo. 

Non pensiate che l’esclamazione UFFA sia stata stampata su una nuova riga. In 
realtà l’ultima W era stata stampata nell’ultima posizione della riga precedente per 
cui è avvenuto automaticamente un ritorno a capo. Se cambiate infatti l’estremo 
800 con 780 vedrete che UFFA è visualizzata sempre dopo le W: 

C#="-" FOR 1 = 1 TO 780 ?c*; NEXT ? 'UFFRi " 


"UFFR! 


REfiUV. 

« 
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Ripetiamo ancora che con il non viene lasciato alcuno spazio tra due stringhe. 
Nel caso invece di variabili numeriche viene lasciato uno spazio per grandezze negative 
e due spazi per quelle positive. 

Per illustrare questo cambiate la stringa con il numero 5 nell’esempio e poi 
riducete a 267 l’estremo del ciclo in quanto ogni numero occupa tre spazi (800/3 = 
267): 

0+5 FC'R 1 = 1 TO 267 ?C; NEXT ? ”UFFfi > '* 
5555555555555 
55555555555555 
5555555555555 
5555555555555 
5 5 555555555555 

5555555555555 
5555555555555 
555555555 5 5555 

5555555555555 
5555555555555 
55 5 55555555555 

55 5 5555555555 

5555555555555 
5 5555555555555 

5555555555555 
555555555555 5 

5555555555555 5 

55 5 5555555555 

555 5 555555555 

555 5 5 5555 5 5555 

UFFfi! 

READY. 

» 

Notate che tra l’ultimo 5 e la parola UFFA vi è un solo spazio. Questo è dovuto al 
fatto che i numeri sono visualizzati con il seguente formato: 


Posizione carattere 


12 3 


x x +1 


- Spazio 
-(x -1) cifre 


Spazio se positivo 
- se negativo 


che per una sola cifra diviene: 


Posizione carattere 1 2 3 

:£ n 

Spazio 

Numero con una cifra 
Spazio se positivo 
- se negativo 
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Se invece del numero 5 aveste posto un numero con più cifre allora avremmo 
avuto uno scorrimento verso l’alto del testo. Per esempio se poniamo il numero 
2001 allora dobbiamo prevedere 6 spazi per ogni numero e per aggiustare le cose 
dobbiamo ridurre l’estremo del ciclo a 134 (800/6 = 134): 


02001 FOR 1 = 1 TO 134 ?c; NEXT:? UFF*!" 
2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 

1 2001 2601 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2301 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 2001 2001 2001 2001 2001 2001 

2001 2001 2001 2001 2001 2001 200 

1 2001 2001 2001 2001 2001 2001 2 

001 UFFA! 

READY. 

» 


Notate anche che i numeri talvolta sono spezzati alla fine di una riga. Questo vi 
conferma il fatto che il separatore genera una visualizzazione continua. 

Uso della “virgola” 

La presenza della virgola dopo le variabili di una PRINT equivale ad una tabulazio¬ 
ne della riga con intervalli di 10 caratteri. Per uno schermo a 40 colonne questo può 
essere così illustrato: 


■ 11 21 
Posizione più a sinistra = 1 


31 


Nel programma precedente cambiate il punto e virgola con la virgola. I numeri 
saranno visualizzati in 4 colonne. Per non far scorrere il testo riducete l’estremo 
superiore della variabile I a 80 (4 ★ 20). Notate poi che la prima posizione è sempre 
riservata al segno. 
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>2001 :FOR 

1=1 T0 80:? Cu 

: NEXT ?"UFFfl!" 


2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

200 1 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

200 1 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

200 1 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

200 1 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 

2001 


■•UFFA!” 

READY. 

* 

L’uso della virgola nell’istuzione PRINT permette di ottenere dei tabulati molto 
interessanti. 

Provate infatti a cambiare il valore 2001 in 44 e l’estremo del ciclo da 80 a 200. 
Premete RETURN e vedrete apparire il seguente testo particolarmente strano: 


C=44 : FOR 1=1 T0 200:? C; : NEXT : ?“UFFA! 


440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 

44 

440 

442 


UFFA !FFA! 
READY. 
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p ar te del vecchio testo non viene cancellato e si sovrappone al nuovo! Il BASIC 
('BM usa infatti il comando di spostamento a destra del cursore, tra i campi di un testo, 
per cui non cancella ciò che era già presente sullo schermo. Notate che rimane anche 
una parte.«della parola UFFA. 

Tutto ciò può essere di grande aiuto quando si devono aggiungere dati su un tabulato 
già presente sullo schermo per cui vi consigliamo di non dimenticare mai questo 
aspetto dell’istruzione PRINT. 

Se invece dovete rimuovere dallo schermo vecchie informazioni, allora potete 
inserire una istruzione per pulire lo schermo prima di effettuare una nuova visualizza¬ 
zione. Per fare questo aggiungete l’istruzione PRINT CLEAR SCREEN nel modo 
seguente: 


C=44:?".T FOR 1=1 TO 200- ?C;: NEXT: ?“UFFAI" 
Pulisce schermo (tasto CLR/HOME shiftato) 


Quando premete RETURN vedrete lo schermo pulirsi e le cifre 44 iniziare ad 
apparire dalla seconda riga. 

Per ottenere la visualizzazione delle cifre sin dalla prima riga, inserite un punto e 
virgola dopo l’istruzione PRINT CLEAR SCREEN: 

C$="A" ; F0 R 1 = 1 TO 840 : ?C*; : NEXT : '"'UFFA!" 

In questo caso il programma può visualizzare 840 caratteri senza dar luogo a 
scorrimento del testo verso l’alto. 

È ovvio che la virgola può essere usata anche con la stampa di stringhe. Per 
esempio caricate il seguente programma in modo immediato che visualizza 20 righe 
con ognuna 4 stringhe: 


fl$=“UNO !" :B*=“DUE !” Ct=" TRE ! " Dt="QUATTRO ! " 
FOR 1=1 TO 20: VA*,BT,C*,DT NEXT: ?"UFFA!" 


MOVIMENTI DEL CURSORE 

Nel capitolo 3 abbiamo discusso le capacità di editing offerte dai tasti di controllo 
del cursore: CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR LEFT/ 
RIGHT, INSERT/DELETE e RETURN. 

I comandi CLEAR SCREEN/HOME, CURSOR UP/DOWN, CURSOR/ 
LEFT/ RIGHT e REVERSE possono essere posti all’interno di una stringa in una 
istruzione PRINT. 

Invece i comandi INSERT/DELETE e RETURN non possono essere usati in una 
PRINT. 
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I comandi del cursore sono interpretati come caratteri di una stringa posta nella 
lista di una PR1NT. Consideriamo questo esempio: 

100 PRINT"#M*" 

L Ue seconde virgolette cambiano il modo da differito 
a immediato 

—— Movimenti del cursore differiti 

-Le prime virgolette cambiano il modo da immediato 

a differito 

Quando l’istruzione PRINT sarà eseguita, vedrete il cursore muoversi a destra 
grazie allo spostamento dell’asterisco: 

SUN 
* ♦ 

Per far pratica nella programmazione dei movimenti del cursore, battete questo 
programmino: 

10 PRINT < CLEAR SCREEN > 

20 PRINT «CURSOR I >* «CURSORI >* «CURSORI >* «REVERSE > «CURSORI >* 
«CURSORI >* «CURSOR' >* 

30 PRINT «CURSOR |> «CURSOR |> «CURSOR |> «CURSORI > 

Il programma apparirà così sul vostro schermo: 

IO PRINT'TJ", 

20 PRINT”J*M*W*sn*T*"»" • 

30 PRIHT"««««" 

40 END 

e in esecuzione vedrete: 

:s 

♦ :i 
♦ 

•* 

Probabilmente non è quello che vi aspettavate. Infatti se ritenevate che la sequenza. 
di caratteri: 

20 PP1 NT 


portasse a far apparire gli asterischi in colonna verticale: 

♦ 

* 

* 
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oppure che l’altra sequenza: 

.20 PPINT " T*">" 

portasse.-i tre asterischi invertiti sui precedenti: 

la 

:a 

allora sicuramente vi siete dimenticati dello spostamento automatico del cursore a 
destra dopo ogni battuta. 1 comandi del cursore programmati portano a spostamenti 
verso l’alto o verso il basso, ma l’asterisco sarà “battuto” sempre a destra a causa 
dell’avanzamento automatico del cursore stesso. Ogni volta che un carattere viene 
visualizzato il cursore si sposta a destra per evitare la sovrapposizione accidentale 
di due caratteri. In questo disegno vi mostriamo i movimenti del cursore avvenuti 
nell’esempio di sopra: 



Avanzamento automatico del cursore 

Per compensare questo spostamento a destra del cursore dovete dare un coman¬ 
do di spostamento a sinistra prima di quelli verso l’alto o verso il basso. Per esempio 
questo programma visualizza tre asterischi posti verticalmente e tre altri asterischi 
posti accanto, ma sempre verticali: 

20 PPINT "<CURS0R1> *<CURS0R-><CURS0R1>*<CURS0R-><CURS0RI>.* 

< REVERSE> #<CURSOR—><CURSORI >*<CURSOR—XCURSOR !>*" • 

esso appare così sullo schermo: 


20 PPI NT " «v m sr> 


Se tentate di programmare i comandi INSERT/DELETE e RETURN otterrete 
dei risultati sorprendenti. 

Il comando INSERT non è programmabile anche se sembra esserlo. In fase di 
stesura del programma INSERT appare come “CD”, ma quando passate all’esecu¬ 
zione non ottenete alcun risultato. 

Il tasto DELETE opera solo in modo immediato. Se provate a programmarlo in 
una istruzione PRINT otterrete semplicemente di cancellare il carattere precedente 
tra quelli in cui è inserito. DELETE è programmabile dopo un inserimento, ma 
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evitate di usarlo in questo modo perchè vi porta solo a delle complicazioni. Vi sono 
dei metodi più sicuri per ottenere lo stesso risultato. 

Il comando RETURN in una PRINT muove immediatamente il cursore fuori 
dell’istruzione e lo porta alla linea successiva. 

FUNZIONE CHR$ - PROGRAMMAZIONE DEI CARATTERI IN ASCII 

Se non potete, o non volete, battere un tasto per inserire un carattere in una stringa, 
potete sempre ottenerlo tramite il suo valore in codice ASCII. 

La funzione CHR$ converte un numero del codice ASCII nel suo carattere equiva¬ 
lente. Il formato di questa funzione è: 

PRINT CHRSUx) 

^- Numero di codice ASCII corrispondente 

al carattere desiderato 

La tabella dei valori del codice ASCII è riportata nell’Appendice A. Cercate 
allora in questa tabella il valore che vi interessa e ponetelo come argomento della 
funzione CHR$. Per esempio per avere il carattere $ nella tabella del codice ASCII 
trovate 36 e 100. Ambedue vanno bene, ma una volta scelto uno è preferibile usare 
sempre lo stesso. Se per esempio prendiamo il valore 36, possiamo allora scrivere: 

f p-.'-- :>**' V. • 

In modo immediato abbiamo: 

PRINT CHR#<36> 
t 

Proviamo con l’altro valore 100: 

PRINT CHR*a00> 
t 


Il risultato è lo stesso. 

Provate a fare altri esempi di decodifica ASCII. La funzione CHR$ può essere 
inserita in una PRINT come se fosse una variabile: 


10 FRINT CHR#<36>;CHR*<42);CHR*<166> 

RUN 

$m 

La funzione CHR$ vi permette di inserire tra i parametri di una PRINT quei 
caratteri che altrimenti non sarebbero disponibili come RETURN, INSERT/DELE- 
TE e le virgolette (“). Potete anche usarla in istruzioni di controllo, per esempio, nei 
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confronti dei comandi RETURN e INSERT/DELETE. Supponete che un program¬ 
ma debba ricevere dei caratteri dalla tastiera e sia in attesa del comando RETURN. 
Ricordando che l’equivalente ASCII di RETURN è 13 potete scrivere: 

io cet yt :f "-£** :o 

Questo test sarebbe impossibile se cercaste di porre RETURN tra virgolette: 

-0 :f : :t :: " i retufh! "theh :o 

1 

Impossibile 

Infatti appena premete RETURN il cursore si porta alla riga successiva. 

20 JF vf ;; - Premere tasto RETURN 


Controlli del cursore (CBM 8000) 

La versione 4.1 dell’editor per lo schermo, disponibile con i calcolatori CBM 
8000, ha due nuovi tasti funzionali e alcune possibilità particolari di editing e 
controllo. Le due funzioni sono date dai tasti TAB e ESCAPE. Le possibilità di 
editing e controllo comprendono un campanello programmabile, Linserimento e la 
cancellazione di linee, la cancellazione dello schermo, la commutazione tra caratte¬ 
ri grafici e di testo e lo scorrimento con una finestra programmabile sullo schermo. 

Il tasto TAB e la funzione tabulazione. Il tasto TAB opera in modo analogo a quello 
di una macchina da scrivere e le sue funzioni sono equivalenti a quelle della funzione 
TAB. Su una riga si possono predisporre sino a 80 punti di tabulazione. Per usare TAB 
in modo immediato portate il cursore nella posizione voluta, quindi premete i tasti 
TAB e SHIFT contemporaneamente. Quando tutte le posizioni di tabulazione 
sono state poste premete RETURN: 

-n-n 

1-1-Premere tasto TAB shiftato 


Per tabulare a programma dovete porre TAB SET in una PRINT. Definite infatti 
una stringa che contenga tanti comandi CURSOR RIGHT quanti sono necessari 
per portare il cursore dove volete poi battete il tasto TAB shiftato che equivale a 
TAB SET. Questo può essere illustrato così: 


PPI NT " Il 




Porre i TAB 
CURSOR A DESTRA 
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Il carattere TAB SET è visualizzato con una I maiuscola in campo invertito. 

Il comando TAB SET può essere anche dato mediante il suo valore in codice 
ASCII che è 137. Infatti con la funzione CHR$ potete scrivere: 


f v;:;T"HMH" .CHF'Z* ; 3? • 


Per avere poi l’avanzamento del cursore alle posizioni tabulate basta dare il 
comando TAB. Se siete in modo immediato è sufficiente premere il tasto TAB. (Se 
siete oltre l’ultimo punto di tabulazione il cursore si porterà alla fine della riga). 

Se lavorate in un programma dovete inserire TAB in una PRINT. Esso sarà poi 
eseguito quando sarà incontrato nell'esecuzione della PRINT. Ecco un esempio: 

FRINT” ■■••vnPET SITE?-" 

I-- TAB programmato 

"V z ‘£" SITE:- 


La funzione TAB CLEAR toglie le posizioni di tabulazione. Attenzione però che 
TAB CLEAR e TAB SET si danno nello stesso modo cioè premendo il tasto TAB 
shiftato. Se quindi per errore cercate di togliere la tabulazione dove non c’era ottenete 
invece il risultato di metterla. Per usare TAB CLEAR in modo immediato portatevi 
quindi con il cursore sulla posizione dove c’è il “tab” da togliere e premete TAB e 
SHIFT. Alla fine premete RETURN. 

Se siete in un programma ponete i comandi CURSOR R1GHT e TAB SET in una 
PRINT: 


Toglie il TAB 
CURSOR A DESTRA 

Sia TAB SET che TAB CLEAR sono visualizzati con una I in campo invertito. 



-■&lNT"i»*Mr,CHPr- :37> 

Ovviamente anche TAB CLEAR può essere dato in codice ASCII mediante 
CHR$ (137): 

Escape. Il tasto ESCAPE della tastiera dei calcolatori CBM 2001/B genera un 
codice ASCII, ma non ha funzioni di editing. Il tasto ESCAPE dei calcolatori CBM 
8000 ha invece due funzioni: in modo immediato cancella alcune condizioni di ingresso 
di un testo come “insert” o “reverse” oppure acconsente che particolari stringhe siano 
interpretate come funzioni di editing dello schermo. 

In modo differito ESCAPE può essere inserito in una istruzione PRINT median¬ 
te la funzione CHR$: 


•--'RINT CHRI' IT . 
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Funzioni di controllo (CBM 8000) 

Le funzioni di controllo, di cui qui di seguito ne riportiamo una breve descrizio¬ 
ne, sono disponibili solo nei calcolatori CBM 8000 con lo schermo a 80 colonne. 
Queste funzioni saranno poi definite nei dettagli nel capitolo 8 e alcuni esempi 
saranno dati più avanti in questo capitolo. 

Tutte queste funzioni sono previste per migliorare le visualizzazioni sullo schermo e 
l'ingresso dei dati, ma hanno la caratteristica di operare solo sullo schermo e di non 
modificare contemporaneamente il contenuto della memoria. Per questo motivo, 
anche se possono essere usate in modo immediato, non devono essere impiegate per 
l’editing di programmi. 

Per usare queste funzioni dovete porre il loro carattere nella lista parametrica di una 
PRINT. Il carattere della funzione può essere indicato in una stringa mediante un 
carattere di controllo oppure mediante la funzione CHR$. Per generare un carattere 
di controllo premete il tasto ESCAPE, poi quello REVERSE e infine la corrispon¬ 
dente lettere senza shift. 

Campanello (“Bell") 

Questa funzione può operare solo con i calcolatori CBM 8000 che siano muniti di 
campanello. Il campanello suonerà sempre all’accensione del calcolatore e al 
superamento della colonna 75 dello schermo. Se la finestra dello schermo è stata 
ristretta (mediante le funzioni finestra dello schermo) il campanello suonerà appe¬ 
na il cursore passa la quinta posizione prima dell’estremo destro della finestra. Il 
campanello può essere anche fatto suonare mediante il comando Control-g oppure 
con CHR$(7) in una istruzione PRINT. 


Inserimento e cancellazione di una linea (“Insert and delete line") 

Queste funzioni inseriscono o cancellano una intera linea sullo schermo. “Delete 
line” cancella la linea su cui si trova il cursore e fa scorrere verso l’alto di un posto 
tutte le linee inferiori. Analogamente “insert line” crea una linea vuota facendo 
saltare verso il basso di un posto tutte le linee inferiori a quella dove c’è il cursore. 
La linea in fondo allo schermo esce dallo schermo. Ne l’inserimento di una linea ne 
la cancellazione modificano il contenuto della memoria del calcolatore. “Delete 
line” è generato da Control-u o da CHR$(21). “Insert line” è generato daControl- 
M o da CHR$(149). 


Cancellazione dell'inizio o della fine di una linea 
("Evase begin and erose end") 

Queste funzioni cancellano parte della linea su si trova il cursore. “Erase begin” 
cancella tutti i caratteri alla sinistra del cursore mentre “erase end” cancella tutti 
quelli posti alla destra. Nessuna delle due funzioni modifica la memoria centrale. 
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“Erase begin” è generato daControl-V odaCHR$(150). “Erase end” è generato da 
Control-v o da CHR$(22). 


Testo o caratteri grafici ("Text or graphic") 

La funzione “graphic” seleziona i caratteri grafici dall’insieme di caratteri stan¬ 
dard mentre i caratteri del testo possono essere lettere maiuscole o minuscole. Gli 
spazi tra i caratteri grafici sia sopra che sotto e a destra e sinistra, sono eliminati così 
da migliorare la qualità del disegno. 

Questa funzione è generata da Control-N o da CHR$(142). 

La funzione “text” è l’inverso della precedente e ne annulla gli effetti. I caratteri 
che hanno un simbolo grafico, nell’insieme di caratteri standard, sono tradotti nella 
rappresentazione dell’insieme di caratteri alternativo. La funzione “text” è genera¬ 
ta da Control-n o da CHR$(14). 


Funzioni finestra sullo schermo ("Screen window”) 

Vi sono quattro funzioni che permettono di definire una finestra sullo schermo 
del display e di far scrorrere in essa il testo. La funzione “set top” assume la 
posizione attuale del cursore come l’angolo di sinistra in alto della finestra. La 
funzione “set bottom” assume invece la posizione del cursore come l’angolo in 
basso a destra della finestra. Tale finestra può essere poi cancellata battendo il tasto 
HOME due volte di seguito oppure inserendo in una PRINT due caratteri HOME 
contigui, “set top” può essere selezionato con CHR$(15) mentre il “set bottom” 
con CHR$( 143) posti in una PRINT dopo i caratteri di posizionamento del cursore. 

La funzione “scroll up” muove il testo all’interno della finestra di una linea verso 
l’alto e lascia vuota la linea più in basso della finestra. La funzione “scroll down” 
muove invece di una linea verso il basso il contenuto della finestra e lascia libera la 
linea più alta della finestra, “scroll up” è generato da Control-q o da CHR$(25). 
“Scroll down” è generato invece da Control-Q o da CHR$(153) posto in una 
PRINT come abbiamo sempre sottinteso. 


Istruzione POKE applicata allo schermo 

Mediante l’istruzione POKE potete visualizzare un carattere in qualunque punto 
dello schermo. Per fare questo è sufficiente che diate il comando POKE per assegnare 
il valore del carattere nella corrispondente posizione di memoria. 

Lo schermo dei calcolatori CBM è come una griglia composta da 1000 (o 2000) 
quadratini ordinati su 25 righe e 40 colonne (o 80 colonne). Uno schermo a 40 
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colonne può essere disegnato così: 



Qualunque carattere può essere visualizzato in ogni quadratino. Ad ogni quadratino 
corrisponde una posizione della memoria centrale. Per esempio al quadratino 1 (riga 
1 , colonna 1) corrisponde l’indirizzo 32768 e all’ultimo dello schermo a 40 colonne 
(riga 25, colonna 40) corrisponde l’indirizzo 33767. Nel caso invece dello schermo a 
80 colonne all’ultimo quadratino (riga 25, colonna 80) corrisponde l’indirizzo 
34767. In altre parole all’indirizzo 32768 corrisponde il quadratino (1,1), all’indiriz¬ 
zo 32769 corrisponde il quadratino (1,2), ecc. Nella Figura 5-2 trovate questa 
corrispondenza tra punti dello schermo e posizioni di memoria. 

Per trovare facilmente l’indirizzo di memoria di un generico punto dello schermo 
vi diamo questa formula: 

Schermo 40 colonne Schermo 80 colonne 

32768 + (colonna-1) + (40 • (riga-1)) 32768 + (colonna-1) + (80 (riga-1)) 


Provate a fare un esempio con il quadratino riga 3 e colonna 5: 


=32768+<X0L-l>+<4@*<RIG-l> > 
=32768+< 5-1)+< 40* <3-1)) 
=32763+4+C 40*2 > 

=32768+4+80 

=32352 



Vedete appunto che l’indirizzo di memoria è 32852. 
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È allora possibile forzare un qualunque carattere sullo schermo mediante l’istru¬ 
zione POKE conoscendo la riga e la colonna dove si vuole visualizzare il carattere. 
Ricordiamo il formato della POKE: 

POKE A.X 

dove: 

A è l'indirizzo sullo schermo 
X è il carattere, o la variabile, da forzare in A 

Possiamo sostituire direttamente al posto di A la formula per calcolare l’indirizzo 
di memoria: 



POKE a .x 


Per esempio se COL(C) e RIG(R) sono dati in ingresso come 5 e 3 e per X diamo il 
simbolo delle picche g] allora avremo sullo schermo tale simbolo nella posizione 
(riga 3, colonna 5). 

Provate infatti ad eseguire: 


10 INPUT C/R/X 

20 POKE 32?6S+<C-1)+<40*<R-1)),X 

=32763+< COL -1 >-K 40* < RIG-1 >>.■ X 
=32768+<5-1>+<40#(3-l))-X 
=32768+4+ < 40*2 >■X 
=32768+4+80/X 
=32352/X 



X deve essere dato come valore in codice numerico ASCII, mentre sullo schermo 
apparirà il simbolo corrispondente. 

In una istruzione POKE si possono usare delle variabili purché esse assumano 
valori numerici nei limiti consentiti: 

POKE 32768 + A.X 

dove: A è un numero tra 0 e 999. per lo 

schermo a 40 colonne (32768 + 999 = 33767) 

POKE A. X 

dove: 

A è un numero tra 32768 e 33767, per lo schermo 
a 40 colonne 
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Talvolta è molto comodo usare le variabili nell’istruzione POKE quando la si 
debba ripetere più volte come in questo caso: 


fl=32768 
2£t POKE 0,X 
30 0=0+10 

40 IF 0<=33?67 GOTO 20 


INGRESSO DATI (INPUT) 

La fornitura di dati ad un calcolatore dovrebbe sempre essere programmata in 
termini di “unità funzionali”. 

Per meglio spiegare questo concetto facciamo un esempio. Un programma di 
gestione degli indirizzi richiede che in ingresso gli siano forniti nomi e indirizzi. 
Ogni nome e indirizzo costituisce appunto una “unità funzionale” cioè un tutt’uno 
che non dovrebbe essere mai separato. In altre parole il programma, quando chiede 
il nome e l’indirizzo, dovrebbe lasciare l’operatore libero di impostare come meglio 
crede la risposta. Solo quando egli ritenga di aver dato quella giusta, il programma 
deve acquisire il dato inteso appunto come “unità funzionale”. 

È una cattiva abitudine quella di acquisire ed elaborare i dati in piccole parti e 
trattarli come se fossero tra loro separati. 

L’obiettivo dell’ingresso dati (“data entry”) è quello di rendere il più facile possibile 
la fornitura dei dati e la correzione degli errori. 

Supponete che un programma richieda in ingresso una lunga lista di dati molto 
brevi. Tale lista potrebbe essere costituita da nomi e date di nascita. Una buona idea 
è quella di accettare sul display un lungo blocco di questi dati. Così sin tanto che i 
nomi sono sul display possono essere corretti e verranno trasferiti al calcolatore 
solo quando saranno spinti in alto fuori dallo schermo (“scroll off’). 

Pensate come sarebbe invece rigida la soluzione elementare di trasferire subito al 
calcolatore ogni singolo nome e data di nascita. 

Esistono casi di elaborazione in cui l’ingresso di dati in blocchi non è la soluzione 
migliore. Sorprendentemente questo si verifica quando bisogna caricare, tramite la 
tastiera, un numero molto elevato di dati. Per esperienza si è visto che i risultati 
migliori si ottengono se l’operatore carica, il maggior numero possibile di dati, 
senza badare agli errori durante una prima fase di caricamento. In altre parole in 
questa fase il calcolatore non deve correggere gli errori anche se sono stati rilevati. Il 
punto fondamentale di questo metodo di lavoro consiste nel far caricare una 
seconda volta gli stessi dati da un altro operatore. Successivamente poi il calcolato¬ 
re confronterà i due ingressi e rigetterà quei dati che non siano eguali. Siccome la 
probabilità che ambedue gli operatori commettano gli stesse errori è molto piccola 
(trascurabile!) sarà facile individuare i dati errati perchè non sono eguali nei due 
caricamenti. Con un secondo programma si procederà poi alla loro correzione. Si è 
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potuto dimostrare che questo modo di caricare dati, anche se molto strano, porta a 
ottimi risultati. 


Ingresso dati interattivo 

Per mostrarvi come scrivere un buon programma per ingresso interattivo di dati, 
vi illustriamo un semplice esempio. Riprendiamo il programmino PROVA e passo 
passo vi facciamo vedere quali sono i miglioramenti da apportarvi. 

Scriviamo dunque queste istruzioni: 


100 C*="H" 

110 print "n" 

120 POR 1 = 1 TQ $4@ 
130 -'RINT C$. 

140 NEXT 

150 PRINT “UFFA!" 


Questo programma visualizza 800 A seguite dall’esclamazione UFFA! 

Supponiamo di voler cambiare le A con X. Per prima cosa cancellate l’istruzione 
di assegnazione 100. Per cancellare una istruzione vi ricordiamo che basta scriverne 
il numero e subito dopo battere RETURN. 

LIST 100 

100 c*="R" 

READY. 

100 -.- Battere numero linea e RETURN 

LIST 

li© print "ri"; 

120 FOR 1=1 TO 840 
130 PRINT C*: 

140 NEXT 

150 PRINT "UFFA!" 

READY. 

m 

La linea 100 non è più nel programma. Battete ora CS = “X” in modo immediato ed 
eseguite il programma. 


Prima di RETURN 

C*="X" 


Dopo RETURN 

"UFFA!" 


READY. READY. 

RUN* « 


Lo schermo rimane bianco e alla fine compare UFFA! Ovviamente la X non è stata 
trasmessa al programma. 

Il comando RUN azzera tutte le variabili numeriche e pone nulle tutte le stringhe 
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prima di eseguire il programma. Così la X è stata annullata e il programma ha 
visualizzato spazi vuoti. 

Ci possiamo chiedere allora se esiste un modo per trasmettere al programma i 
valori C$ caricati in modo immediato. La risposta è positiva perchè possiamo dare 
jl comando GOTO 110 che non cambia il valore di alcuna variabile. 

Prima di RETURN 

C*»"X" 

READY. 

GOTO 110 


Dopo RETURN 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

UFFA ! 


READY. 

m 


Allora la procedura per eseguire il programma è la seguente: 

1. Caricate in modo immediato l’istruzione C$ = “y” dove y è un carattere 
qualunque. 

2. Caricate in modo immediato l’istruzione GOTO 110. 

Questo modo di procedere'è però poco elegante; infatti vi mostriamo come sia 
possibile lavorare in maniera più semplice e professionale. 

Il programma stesso può richiedere il valore del carattere da visualizzare con la 
seguente istruzione: 

ISO GET C* IF €» = •' " GOTO 100 

Quando ponete in esecuzione il programma vedrete che lo schermo si svuota e 
sparisce anche il cursore. Premete allora un qualunque carattere e lo vedrete 
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apparire 800 volte. Se rieseguite il programma e ribattete un altro carattere otterrete 
un'altra visualizzazione. 

Questa seconda procedura è senz’altro migliore della prima, ma ha ancora il 
difetto di non avvisarvi che dovete dare un dato in ingresso. Aggiungete allora 
questa istruzione: 

Copiare: 


3© PRINT" EliTTI UN TASTO “ 

Adesso il programma dà le istruzioni all’operatore. Provate ad eseguire il program¬ 
ma più volte e vedrete quanto è più facile usarlo. 

C'c però ancora una modifica importante da fare. Se volete eseguire il programma 
più volte potete terminarlo con una istruzione di salto al suo inizio anziché fermarlo. 
Aggiungete la seguente linea: 

160 GOTO 90 

Provate ora a listarlo: 

LIST 

90 PRINT "BATTI UN TASTO” 

100 GET CT IF C*="" GOTO 100 
110 PRINT "rr 
120 FOR 1=1 TO 340 
130 PRINT Ci; 

140 NEXT 

150 PRINT "UFFA!" 

160 GOTO 160 
READY 

ed a eseguirlo. 

Ovviamente se adesso lo volete fermare dovete premere STOP. È più corretto 
però che poniate nel programma una interrogazione all’operatore per cui se preme¬ 
te un tasto, come per esempio RETURN, il programma si ferma. 

Vediamo come fare. 

Ogni tasto di dati o di controllo del cursore può essere interrogato come se fosse 
una stringa. Per esempio queste due linee interrogano il carattere Y: 

1OÙ GET Ct IF C*=" " GOTO 100 
105 IF Ct= "V" GOTO 2O0 


RETURN presenta invece dei problemi speciali. Non potete trattare RETURN 
come una stringa letterale, cioè: 



Impossibile! 


176 




Questo perche RETURN è un comando ad alta priorità per cui quando viene premuto 
il calcolatore memorizza subito quella linea e manda il cursore all’inizio della 
successiva. 

Il problema può essere aggirato facendo uso della funzione CHR$ che converte i 
valori numerici del codice ASCII nei corrispondenti caratteri. Nel nostro caso il 
codice ASCII di RETURN è 13. 

È importante però stabilire prima che cosa fare se verrà incontrato un RETURN. 
In tal caso ovviamente il programma si deve fermare per cui dobbiamo porre 
l’istruzione: 


170 ENI' 


Poniamo allora: 


105 if i:j=chf-*-. i 3 j goto ire 

Oppure in modo più sintetico al posto della 105 e della 170: 

105 IF CX=C HFf • 1 ’ THEH END»-Opzione 

In generale possiamo dirvi che, se ponete delle istruzioni per terminare un 
programma, è consigliabile che esse siano poste in coda perchè sarebbe molto 
scomodo andarle a cercare in mezzo al programma. 

Nel nostro esempio non dovendo ricevere il messaggio READY per ogni esecu¬ 
zione, rimangono libere due righe in più sullo schermo. E allora possibile visualiz¬ 
zare 80 caratteri in più per cui potete cambiare nella linea 120 l’estremo superiore 
del ciclo da 840 a 920: 


110 FOR 1=1 TO SCO 

Quando porrete in esecuzione il programma vedrete che una riga scorrerà in alto 
per cui ne rimarrà una vuota in basso. Questo è dovuto al fatto che il calcolatore 
esegue un RETURN dopo aver dato il messaggio BATTI UN TASTO per preparar¬ 
vi per una nuova visualizzazione. Possiamo dimostrare questo rendendo il cursore 
visibile. 

Normalmente durante l’esecuzione di un programma il cursore viene inibito. 
Mediante questa istruzione potete però renderlo visibile anche durante l’esecuzione 
di un programma: 

SO F'OKE 54S .0-»-Abilita il cursore 

Per meglio comprendere questa istruzione vi rimandiamo al capitolo 7. Eseguite 
allora il programma e vedrete che il cursore è‘presente: 

UFFA ! 

FATTI UN TASTO 

L’istruzione 80 non è però molto importante per cui la potete cancellare. 
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Un altro metodo, per evitare la riga vuota in fondo allo schermo, è quello di porre 
un punto e virgola in coda alla PRINT della linea 90. In questa PRINT aggiungete 
anche un messaggio per avvisare che RETURN termina il programma. La linea 90 
diviene così: 

90 ?"BATTI UN TASTO 0 <R> PER TERMINARE"; 

Per terminare la nostra discussione sul programma PROVA vi consigliamo di 
porre alcuni commenti REM per spiegare i punti salienti del programma. P er 
esempio: 

120 POR 1=1 TO 320 REM 920/40=23 LINEE 


ed anche: 


110 PRINT "ir REM PULISCE LO SCHERMO 

E da ultimo aggiungere quelche REM all’inizio di PROVA per spiegarne il contenu¬ 
to. Otterrete a questo punto un programma come quello riportato in Figura 5-1. 
Registratelo allora su cassetta o su dischetto. 


Messaggi di avviso 

Ogni programma che preveda l’ingresso di dati deve avere dei messaggi di avviso da 
comunicare all’operatore. In genere sono messaggi molto semplici e brevi a cui 
l’operatore risponde SI o NO (YES o NO) oppure solamente Y e N. Un altro caso è 
quello in cui l’operatore risponde con qualche numero in codice. 


Le parti di programmi, che sovrintendono a questi dialoghi è preferibile che siano 
poste sotto forma di subroutine per renderle indipendenti dalla filosofia del program¬ 
ma principale. Da questo ne derivano tre considerazioni: 


1. Non potete presumere che la riga del display su cui apparirà il messaggio sia in 
quel momento libera. Di conseguenza il messaggio sarà sovrapposto ad un 
vecchio testo, e fin qui niente di male, ma il resto della riga sarà interpretato 
come risposta. Questa situazione può portare a delle grosse complicazioni. 

2. Le subroutine devono ricevere dal programma principale alcuni parametri. Per 
esempio se il programma principale chiede dei valori numerici tramite la subrou¬ 
tine, allora le può passare gli estremi di validità di tali valori. 

3. Le subroutine devono poi rimandare al programma principale le risposte dell’o¬ 
peratore che possono essere semplici caratteri come Y o N oppure parole o 
numeri. 
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Lina subroutine non può sapere su quele riga dello schermo apparirà il messaggio 
(jj chiamata. È importante quindi stabilire che sia il programma principale a 
osizionare il cursore sulla riga giusta. La subroutine può poi pulire la riga e 
^ortare il cursore al suo inizio. Ecco le istruzioni che potete usare: 


2000 REM PULISCE LA RIGA DEL CURSORE 

2016 PRINT CHR*<13>;"TI"; : REM MUOVE IL CURSORE SULLA COLONNA 0 
2020 FOR 1=1 TO 39: PRINT " NEXT 
2030 PRINT CHR*<13>;"T; 

2040 STOP 


Nel caso di uno schermo a 80 colonne l’istruzione alla linea 2020 deve portare 
come estremo superiore il valore 79 invece di 39. 

Caricate questo programma nel vostro calcolatore; posizionate il cursore su una 
linea bianca tra due linee di testo quindi battete RUN per eseguire il programma. Se 
tutto il testo scorre via dallo schermo allora vuol dire che avete dimenticato il punto 
e virgola in coda all’istruzione PRINT della linea 2020. 

Spesso questo programma costituisce appunto una delle subroutine di cui abbia¬ 
mo parlato per cui dovete porre RETURN alla linea 2040 invece di STOP. 

Un altro modo di procedere prevede invece l’uso delle funzioni ERASE o 
ERASE END (solo per i calcolatori CBM 8000): 

2000 REM PULISCE LA RIGA DEL CURSORE 

2010 PRINT CHR#U50);CHR*<22> ;CHR*< 13>; "H*; 

2030 STOP 


In tal caso la routine si riduce ad una unica linea di programma! 

Vediamo ora una subroutine per porre una richiesta all’operatore a cui si deve 
rispondere con una Y (YES) o con una N (NO). Useremo una PRINT per porre la 
domanda e una GET per ricevere la risposta. Verrà inoltre pulita la riga su cui dare 
la risposta mediante la routine prima descritta. Ecco le subroutine: 


2000 REM PULISCE LA RIGA DEL CURSORE 

2010 PRINT CHR#a3);“n"; : REM MUOVE IL CURSORE SULLA COLONNA 0 
2020 FOR 1=1 TO 39: PRINT “ NEXT 
2030 PRINT CHR*<13>;“H"; 

2040 RETURN 

3000 REM PONE UNA DOMANDA E ATTENDE V 0 N PER VN* 

3010 GOSUB 2000 

3020 PRINT"VUOI FARE DEI CAMBIAMENTI? «; 

3030 GET VN* IF VN*C”N" AND VN*0”V" THEN 3030 
3040 PRINT VN*; 

3050 RETURN 


Potete usare queste subroutine per chiedere qualunque cosa a cui si possa 
rispondere con un “sì” o un “no”. Il messaggio per la richiesta deve essere posto 
nella PRINT della linea 3020. 

Vediamo ora una subroutine che preveda come risposta un numero. Assumiamo 
che alla routine sia detto quale è il valore minimo accettabile LO% e quale è il 
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massimo HI%. La subroutine ritornerà il valore NM% dato in risposta. Ecco la 
subroutine: 


2000 REM PULISCE Lft RIGA DEL CURSORE 
2010 PRINT CHR$<13>; "T, REM MUOVE IL 
2020 POR 1=1 TO 39: PRINT " NEKT 
2030 PRIMT CHRPC13);“T'; 

2040 RETURN 

3000 REM CHIEDE UN VALORE NUMERICO 

3001 REM CHE CONFERMA COME NMS. 

3002 REM NMS DEVE ESSERE MINORE DI HIS 

3003 REM MAGGIORE DI LOS. IL PROGRAMMA 

3004 REM DEVE DARE I VALORI HIS E LOS 
3010 GOSUB 2000 

3O20 PRINT"QUALE VUOI CAMBIARE? 

3030 GET NMf IF NMJ=“" THEN 3030 
3040 NMS=VAL(NMt> 

3050 IF NMS3LOS OR NMS3HIS THEN 3030 
3060 PRINT NMt; 

3070 RETURN 


Provate a scrivere un programma che prima definisca i due valori LO%e HI%e poi 
richiami la subroutine 3000. 

La subroutine 3000 accetta come risposta un numero con una cifra sola, provate 
da voi a modificarla così da poter accettare numeri con due cifre. Se non vi riuscite 
aspettate di leggere più avanti questo capitolo. 

Se volete potete fare un’altra piccola modifica e cioè fornire alla PRINT, della 
linea 3020, il messaggio sotto forma di stringa che a sua volta può essere assegnata 
in maniera molto generale dal programma principale. 


CURSORE SULLA COLONNA 0 


E 

CHIAMANTE 


Ingresso e verifica di una data 

Molti programmi durante la loro esecuzione chiedono all’operatore dei dati che 
non sono così semplici come un “sì” o un “no”, ma neanche tanto complicati come 
un intero testo. Consideriamo per esempio la data. 

Non sottovalutate questo esempio perchè contiene tutti gli elementi caratteristici 
di un buon “data entry”. 

Poniamo che la data debba essere fornita così (con il mese prima del giorno come 
è d’uso nei paesi anglosassoni): 


M M—DD—YY 

tu il 


Anno (year) 
Separatore 
■Giorno (day) 
Separatore 
Mese (month) 


Se volete potete sostituire il trattino con una barra o un punto. 

Programmate sempre l’ingresso dei dati in modo che esso sia facile e immediato 
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per l'operatore! Per esempio se dovete chiedere una data predisponete le posizioni 
dove l’operatore deve darla con un campo a caratteri invertiti; ciò sarà molto visivo 
e d efficacie: 


m-m-i 

U 


m 


Il cursore lampeggia 
sulla prima posizione 


La data deve essere battuta 
in queste posizioni 


Per creare il campo invertito potete usare questa PRINT: 


10 PRINT "<Cleer> <CursorJ> <Cursorl>";TAB(20);"<Reverse>Btt 
< Reverse off > - < Reverse > W4 < Reverse off > - < Reverse > 

BB<Reverse off >";CHR$(13);"< Cursori >";TAB(20); 

b rappresenta uno spazio 

Questa istruzione PRINT comprende anche i comandi del cursore per posiziona¬ 
re l’ingresso dei dati alla colonna 21 della riga 3; e inoltre pulisce lo schermo per non 
avere vecchi caratteri nella zona che ci interessa. Dopo aver preparato il campo 
invertito il cursore viene riportato al suo inizio mediante un ritorno del carrello, un 
CURSOR UP e un TAB. 

Provate ora a usare l’istruzione INPUT per ricevere il dato riguardante il mese. 
Per esempio così: 


20 INPUT MI; 

Caricate le istruzioni 10 e 20 ed eseguitele. L’istruzione INPUT non funzionerà. 
Innanzi tutto il punto interrogativo della INPUT occuperà il primo campo invertito 
della data e poi il resto della riga verrà preso come valore d’ingresso. Così sino a che 
non avrete riscritto su tutta la riga (ma questo richiede l’ingresso di dati molto 
lunghi) otterrete sempre il messaggio RE-DO FROM START ogni volta che 
premete RETURN. 

È consigliabile quindi ritornare ad usare GET: 

10 PRINT "TTT';TflB<20); "a s-a s-a B";CHR#<13>; ".T;TfiB<20>; 

20 GET IF C$«“" THEN 20 
30 PRINT Ct :• t1MI=Cf 
40 GET CI IF «="" T HEN 40 
30 PRINT CI;: 

60 STOP 

Queste istruzioni accettano due cifre in ingresso. L’ingresso è visualizzato nel primo 
campo invertito della data. Le due cifre date in ingresso non richiedono RETURN o 
altri caratteri terminali. Infatti il programma accetta solo i primi due caratteri che 
vengono battuti. 
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Per dare una data è necessario dare tre volte una coppia di numeri: una per il 
mese, una per il giorno e una per l’anno. Invece di ripetere tre volte le stesse 
istruzioni dalla linea 20 alla 50 le poniamo in una subroutine a cui facciamo tre volte 
riferimento: 


13 PftINT ■7TT , ;TflB(20);"3 «-si B-3 !";CHRf<13>; “'1"; TAB<20>; 
20 GOSUB 1000: MMf=TCf PRINT TAB<23> 

30 gosub 1300: nnr=TCf priht tab<26> 

43 GOSUB 1000: Wf=TCf 

50 STOP 

1003 REM SUBROUTINE INGRESSO BUE CARATTERI 
1010 GET Cf IF Cf=" " THEN 1010 
1023 PRIHT Cf; 

1030 GET CCf : IF CCf="" THEN 1030 
1040 PRIHT CCf; 

1050 TCf=Cf+CCf 
1060 RETURN 


Se avete un calcolatore CBM 8000 provate a riscrivere questo programma 
facendo uso delle funzioni TAB SET e TAB fornite dalla versione 4.1 dell’Editor. 

Sempre nel caso di un calcolatore CBM 8000 la versione di questo programma 
può essere molto più semplice perchè potete usare la funzione ERASE END come 
segue: 


3600 1 V:-t A s‘<iJES“I0N HfO ~£' r, _’RN U PLSF'OhSc iV V f? *« I « V*-J 

3905 r r.:-i 3000 VEPSJ0N 

30 10 I ■ « . • 1 50 1 ■C^Pl' ? • C 1 3 à - '' 

iOl‘0 •*-!.*:' ' JU VOI; :*RN” “Vi *MV C-.^nGES ’ ” • 

3030 3E~ V •■I’ l F .. " k «" Hfij VnJ .. "V" “E -1 030 

3940 vs ; . 

3O50 


Le variabili MM$, DD$ e YY$ contengono il mese, il giorno e l’anno espressi come 
stringhe di due caratteri. Ricordatevi che in questo caso dovete pulire il buffer, di 
dieci caratteri d’ingresso, prima di usare GET. Diversamente acquisireste qualun¬ 
que vecchio carattere già contenuto nel buffer. Questa operazione è sufficiente che 
la facciate una sola volta. 

Ci sono due modi per aiutare un operatore a correggere gli errori mentre sta 
caricando dati. 

1. Il programma può controllare automaticamente la validità del mese, del giorno 
e dell’anno. 

2. L’operatore può ripetere l’ingresso dei dati. 

Il programma può controllare che il numero del mese sia compreso tra 1 e 12. Può 
controllare il numero massimo di giorni per ogni mese, eventualmente tener conto 
degli anni bisestili. Ogni anno tra 0 e 99 è valido. Se una di queste condizioni non è 
rispettata allora l’ingresso della data sarà ripetuto dall’inizio. 
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In definitiva il nostro programma per l’ingresso delle date appare così: 


5 SEM ROUTINE C 'ER ACCETTARE E VERIFICARE UNA DATA 

10 RRINT ".1(1(1“; TAB<20>; "3 B-S B-tì ■" CHRtC 13); "T ; TAB<20> ; 

50 OOSUB 1O00 REM CHIEDE IL MESE 
S0 IFCf=CHRT(13) OR CC*=CHR»<13) THEN 10 
70 DTT=TCT RRINT TAB<£3> 

30 REM CONTROLLO VALIDITÀ' MESE 
30 MX=VAL<TC*; 

100 IP pfJ£<l OR MX>12 THEN 10 

110 REM CONTROLLA LA LUNGHEZZA DEL MESE 

ilo d:;=3i 

130 IF m;:=2 THEN D‘.'=28 

:-o if m;;=4 or m::=6 or m;:=s or m.i=ii then dz= 30 
150 OOSUB 1000■ REM CHIEDE IL GIORNO 
160 IF Cf=CHR*<13> OR CC*»CHR*<13> THEN 10 
170 DTf=DT*+"-"+TC* RRINT TAB<26> 

130 REM CONTROLLO VALIDITÀ' GIORNO 
200 IF VALCTCfXl OR VAL<TC*»DX THEN 10 
210 OOSUB 1000: REM CHIEDE L'ANNO 
220 DTt=DTf+"-“+TC* 

230 IF C*=CHR*a3) OR CC*»CHR*< 13> THEN 10 

240 REM CONTROLLO VALIDITÀ ANNO 

260 IF VAUTC4K0 OR VAL<TC*»99 THEN 10 

270 STOP 

2S0 ©EM 

100O REM SUBROUTINE PER INGRESSO DI DUE CARATTERI 

1005 FOP 1=1 ro 10 : GET Ct : NEXT REM ANNULLA IL BUFFER D'INGRESSO 

1010 GET Ct: IF c$=" “ THEN 1010 

1015 IF Cf=CHR#<13> THEN 1050 

2816 IF Ct<" 8 “ OR Ct)“3" THEN 1010 

1020 PRINT Ct; 

1030 GET CCt IF CCt=“" THEN 1030 

1035 IF CC*=CHRt<13> THEN 1050 

1036 IF CCt<"0" OR CCf>"P" THEN 1O10 
1O40 PRINT CCt; 

1050 TCt=Ct+CCt 
1060 RETURN 


Notate che la data è posta nella stringa DT$ come mese, giorno e anno. 

Sulla data fornita in ingresso vengono fatti questi tre controlli: 

1. Il carattere è RETURN? 

2. Se non è RETURN è una cifra valida? 

3. La prima coppia di cifre costituisce un mese valido, la seconda un giorno valido e 
la terza un anno valido? 

Il ritorno del carrello è stato scelto come carattere per far ripartire e ripristinare il 
programma. Se volete potete usare un qualunque altro carattere sostituendo 
CHR$(13) nelle linee 60,160,230 e 1035. Quando l’operatore preme RETURNo un 
altro carattere scelto per il ripristino, l’intero programma ricomincia da capo. 
Controlliamo il carattere di ripristino, alla linea 1035, poiché vogliamo che il 
ripristino avvenga dopo l’ingresso della prima o della seconda cifra. Anche il 
programma principale controlla la presenza del carattere di ripristino prima di 
tornare all’inizio della routine alla linea 10. Potremmo saltare questa fase e passare 
direttamente dalla subroutine alla linea 10, in caso di ripristino, senza ritornare 
prima regolarmente al programma principale. Questo modo di lavorare è però 
molto pericoloso e lo sconsigliamo assolutamente. 
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Ogni subroutine deve essere vista come una unità autonoma con i suoi punti fissi 
di ingresso e di uscita. Saltare da un punto qualunque di una subroutine al 
programma principale o da una subroutine ad un’altra è sicuramente motivo di 
gravi errori. In altre parole per uscire da una subroutine dovete sempre passare 
attraverso la sua istruzione RETURN. 

Una eventuale routine, per controllare che in ingresso non siano dati caratteri 
non numerici, può risiedere nella stessa subroutine di ingresso dei due caratteri. 
Abbiamo infatti deciso di considerare errati caratteri non numerici dati in ingresso. 
Alle linee 1016 e 1036 controlliamo che i caratteri d’ingresso siano numerici 
facendo un confronto tra i loro valori ASCII e i valori ASCII delle cifre numeriche. 

Il controllo di validità dei mesi, giorni e anni viene fatto nel programma principa¬ 
le. 

L’istruzione alla linea 100 controlla la validità dei mesi. Le istruzioni alle linee 
120. 130, 140 e 200 controllano la validità dei giorni tenendo conto della differente 
lunghezza dei mesi. 

Alla linea 260 viene infine fatto il controllo dell’anno. Notate che alle linee da 90 a 
140 abbiamo usato una rappresentazione numerica intera del mese per risparmiare 
memoria mentre non lo abbiamo fatto per i giorni e per gli anni. 

Ricordatevi infine che se cercate di scrivere bene una routine di “data entry” voi 
forse perdete un poco di tempo, ma ne farete risparmiare molto di più a chi opererà con 
il vostro programma. 

Moduli per ingresso dati 

Se avete dati di ingresso complessi, il modo migliore per caricarli è quello di 
visualizzare sullo schermo un modulo e quindi riempirlo man mano con i dati. 

Considerate per semplicità il problema, già altre volte citato, di caricare nomi e 
indirizzi. Potreste allora visualizzare un modulo come questo: 

BATTERE IL NOME E L'INDIRIZZO 

il HOME 
•À VI FL 

c) CITTA' : 

21 STATO : fl CflP : 


Ad ogni dato in ingresso viene asegnato un numero che nel modulo è indicato in 
campo inverso. L’operatore non deve far altro che inserire i dati nei posti prescritti. 
Il seguente programma pulisce lo schermo e visualizza il modulo: 


10 REM PROGRAMMA PER L'INGRESSO DI 

11 REM NOMI E INDIRIZZI 

£0 REM VISUALIZZA IL MODULO D'INGRESSO 
30 PRIHT'TM BATTERE IL NOME E L INDIRIZZO” 


40 PRINT" SI" NOME 
50 PRINT" :£■ VIA: 
60 PRINT" 9BS CITTA 
70 PRINT" STATO: 


;TAB<28>;“S5S CAP: 
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Appena un dato entra ponetelo in un campo invertito poi alla fine visualizzatelo 
con caratteri normali. CURSOR LEFT è usato per ripristinare il programma, 
mentre RETURN indica la fine dell’ingresso dei dati. Ecco il programma completo: 


30 REM CARICA IL NOME DI 20 CARATTERI 
90 LN??=20 

100 PRINT'‘SIlW"; TABC10); 

110 GOSUB 8000 : NA*=CC* 

120 REM CARICA LA VIA DI 20 CARATTERI 
130 PRINT CHR«13>;TABa0>; 

140 GOSUB 8000 : SR*=CC* 

150 REM CARICA LA CITTA' DI 20 CARATTERI 
168 PRINT CHR*(13);TAB<10); 

170 GOSUB 8000CI*=CC* 

180 REM CARICA LO STATO DI 2C CARATTERI 
185 LNH=18 

190 PRINT CHR*a3);TABC10)l 


200 GOSUB 8000ST*=CC* 

210 REM CARICA IL CAP DI 5 CARATTERI 

220 LN2=5 

230 PRINT TAB<34)1 

240 GOSUB 8000 ZI*=CC* 


8000 REM BATTERE UNA STRINGA LUNGA AL MASSIMO LN" CARATTERI 

8010 REM IL CURSORE DEVE ESSERE ALL'INIZIO DEL CAMPO 

8020 REM IL TASTO RETURN TERMINA L'INGRESSO NEL CAMPO 

8030 REM IL TASTO - FA RIPETERE L'INGRESSO NEL CAMPO 

8040 REM NON VENGONO FATTI ALTRI CONTROLLI SU VALIDITÀ DATI 

8050 REM LA STRINGA IN INGRESSO VIENE RITORNATA COME CC* 

8060 ST‘.'=POSOO : REM PRENDE LA PRIMA POSIZIONE DEL CAMPO 

8070 PRINT"S"REM INVERSIONE CARATTERI 

8080 FOR 1 = 1 TO LN?;: PRINT" "; • NEXT 

8090 PRINT"»":CHR*<13? ?"T;TAB<STX>- 

3100 REM INGRESSO E VISUALIZZAZIONE DEI DATI 

8110 CC*=. J?;=0 

8120 FOR 1=1 TO LUTA 


8125 r/.=r/.+ i 

8130 GET C$: IF C*="" THEN 8130 

8140 IF C*="«-" THEN PRINT CHR*< 13)1 "1"? TAB<ST«>? : GOTO 8070 
3150 IF C*=CHR*<13> THEN 8200 
8160 PRINT C*;: CC*=CC*+C* 

8170 NEXT 

8190 REM COMPLETA CC* CON SPAZI VUOTI 
3200 IF .T?;=LN?: THEN 8300 
3210 FOR I=J?; TO LN?! 


8220 CC*=CC*+" " 

8230 NEXT 

8300 PRINT CHR*< 13? ; "T' ; TAB(ST?i); CC*; 
3310 RETURN 


INGRESSO 


Caricate quindi questo programma. 

Quando lo ponete in esecuzione ognuno dei cinque campi d’ingresso sarà reso 
più luminoso dall’inversione del campo. Alla fine, premendo RETURN, il campo 
dei caratteri diverrà normale. 

Provate poi a premere CURSOR LEFT per far ripartire il programma. 

Prima di procedere oltre esaminate attentamente la subroutine per l’ingresso dei 
dati che inizia alla linea 8060 e termina alla linea 8310 e cercate di capirne bene la 
struttura logica. Notate infine quanto sia facile per un operatore capire quali dati 
deve dare in ingresso ed eventualmente correggerli. 
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Vediamo ora un’altra funzione che deve essere svolta dal nostro programma di 
“data entry”. Dopo che un intero nome ed indirizzo è stato dato il programma 
chiederà all’operatore se desidera fare qualche cambiamento e in tal caso quale 
campo deve essere modificato. Le subroutine per porre queste due domande le 
abbiamo già scritte all’inizio di questo capitolo. Qui di seguito riportiamo il 
programma completo con la nuova parte che inizia alla linea 250: 


:<3 REM PROGRAMMA PER L'INGRESSO 01 
il REM HOMI E INDIRIZZI 
20 REM VISUALIZZA IL MODULO D INGRESSO 
30 PRINT"3« BATTERE IL MONE E L'INDIRIZZO” 

40 PRINT" SIS HOME " 

50 PRIMI" 32S VIA " 

60 PRINT" 338 CITTA'" 

70 PRINT" WS STATO TAB<28);"358 CAP" 

30 REM CARICA IL NOME DI 20 CARATTERI 
so ln;;=20 

1OO PRINT" SStìtì" TAB<10); 

HO GOSUB S000 'NAf=CCf 

120 REM CARICA LA VIA DI 20 CARATTERI 

138 PRINT CHR$(13);TABC18); 

148 GOSUB 8000 ?RT=CCT 

150 REM CARICA LA CITTA' DI 20 CARATTERI 

160 PRINT CHR*<13);TAB<10)J 

170 GOSUB 3000 CI$=CCX 

ISO REM CARICA LO STATO DI 28 CARATTERI 

185 LNJI=i8 

130 PRINT CHR*<13);TAB<10); 

200 GOSUB S0O0 STT=CC» 

210 REM CARICA IL CAP DI 5 CARATTERI 

220 LH?:=5 

230 PRINT TAB(34); 

240 GOSUB 8000 Zir=CC't 

250 REM CHIEDE SE FARE DEI CAMBIAMENTI 

260 OUf="VUOI FARE DEI CAMBIAMENTI? " 

270 PRINT"4»I«i!Mi!l(W"; 

288 GOSUB 3080 

230 IF VN*="N" THEN STOP 

300 REM CHIEDE QUALE CAMPO CAMBIARE 

310 C!U$= "BATTERE IL NUMERO (1-5) DI CAMPO DA CAMBIARE " 

320 L0X=1 Hi:i=5 
330 GOSUB 3500 

340 ON NM’I GOTO 400,450,500.. 550,600, 

400 REM CAMBIA IL NOME 

410 FRINT"aHM";TAB<10>; -LN:;=20 

420 GOSUB S000-NA*=CCf 

430 GOTO 260 

450 REM CAMBIA LA VIA 

460 FRI NT "S8®#r; TAB <10); -LN.-:=20 

470 GOSUB 8000'SRT=CCf 

480 GOTO 260 

500 REM CAMBIA LA CITTA' 

510 PRINT"M««(W";TAB<10); 'LN?>20 

520 GOSUB 880O CIT=CCf 

530 GOTO 260 

550 REM CAMBIA LO STATO 

560 PRINT" WftftWlP ; TAB< 10) ; LNn=18 

570 GOSUB 8000 : STf=CCf 

580 GOTO 260 

600 REM CAMBIA IL CAP 

610 PRINT“«mWII)ll";TAB<34); :LN?:=5 

620 GOSUB 8000 : ZI$=CCf 

630 GOTO 260 

2000 REM PULISCE LA RIGA SU CUI E' IL CURSORE 

2010 PRINT CHRTC13);“"r;' REM PORTA IL CURSORE SULLA COLONNA 0 

2020 FOR 1 = 1 TO 33 PRINT" "; : N£.‘iT 
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2030 PRINT CHR*<13);"T; 

2040 RETURN 

3000 REM RISPONDERE ALLA DOMANDA CON V 0 N PER VN* 

3010 OOSUB 2000 
3020 PRINT QU$; 

3030 GET VN*: IF VN*<> ,, N" AND VN*C"V THEN 3030 
3040 PRINT VN»; 

3050 RETURN 

3500 REM CHIEDE UN VALORE NUMERICO CHE 
3510 REM RITORNA'CON NMJJ; NMS DEVE ESSERE 
3520 REM COMPRESO TRA LOS E HIS 

3530 REM IL PROGRAMMA CHIAMANTE DEVE DARE 

3531 REM HIS,LOS E QU* 

3540 GOSUB 2000 

3550 PRINT OLI*; 

3560 GET NM* : IF NM*=“" THEN 3560 
3570 NMS=VAL<NM*> 

3530 IF NMSCLOS OR NMS3HIS THEN 3560 
3590 PRINT NM»; 

360O RETURN 

3000 REM BATTERE UNA STRINGA LUNGA AL MASSIMO LNS CARATTERI 

3010 REM IL CURSORE DEVE ESSERE ALL'INIZIO DEL CAMPO 

8020 REM IL TASTO RETURN TERMINA L'INGRESSO NEL CAMPO 

8030 REM IL TASTO *■ FA RIPETERE L'INGRESSO NEL CAMPO 

3040 REM NON VENGONO FATTI ALTRI CONTROLLI SU.VALIDITÀ' DATI INGRESSO 

3050 REM LA STRINGA IN INGRESSO VIENE RITORNATA COME CC* 

3060 STS=POS<X) REM PRENDE LA PRIMA POSIZIONE DEL CAMPO 
S07O PRINT"S", : REM INVERSIONE CARATTERI 
3030 FOR 1=1 TO LNS: PRINT" “,NEXT 
3090 PRINT"■" ;CHR*<13>;"T*;TAB<STS>; 

8100 REM INGRESSO E VISUALIZZAZIONE DEI DATI 

3110 CC*=. JS=0 

3120 FOR 1=1 TO LNS 
3125 JS=JS+1 

3130 GET C*: IF C*=““ THEN 3130 

3140 IF «="<-" THEN PRINT CHR*< 13); "T;TABCSTS); GOTO 8070 
8150 IF C*=CHR*<13> THEN 3200 
8160 PRINT C*; CC*=CC*+C* 

8170 NEXT 

8130 REM COMPLETA CC* CON SPAZI VUOTI 
32O0 IF JS=LNS THEN 8300 
3210 FOR I=JX TO LNS 
3220 CC*=CC*+" " 

8230 NEXT 

3300 PRINT CHR*<13>; “T; TAB(STS); CC*; 

3310 RETURN 


Caricate ed eseguite questo programma; se qualche cosa non funziona vi diamo 

alcuni consigli per ricercare gli errori: 

1. Se le visualizzazioni sullo schermo scorrono via in alto, allora vi sarete dimenti¬ 
cati di porre i punti e virgola in coda alle PRINT. 

2. Se un campo inverso appare nel punto sbagliato, allora avete posto un numero 
errato di comandi CURSOR DOWN in una PRINT, oppure avete dimenticato 
di separare due variabili con il punto e virgola in una PRINT. 

3. Se un messaggio non appare sul display allora controllate che le variabili che 
avete usato nel programma principale, per definire il testo, siano le stesse usate 
nelle subroutine. 

Ripetiamo qui di seguito i punti fondamentali di questo programma: 

1. Mediante il campo inverso d’ingresso indicate chiaramente all’operatore quali e 
quanti dati deve fornire e dove porli. 
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2. Quando l’operatore effettua una correzione il campo inverso lo avvisa dove essa 
è stata effettuata. 

3. L’operatore non è obbligato a battere gli spazi bianchi perchè questi sono posti 
automaticamente. 

4. In ogni momento l’operatore può ripetere l’ingresso in un campo premendo il 
tasto CURSOR LEFT. 

5. Alle domande si deve rispondere con un carattere ben preciso come Y per SI’ 
(YES) e N per NO. Rispondere ad una domanda con un carattere qualunque è 
molto pericoloso perchè rischiate di dare una risposta errata se accidentalmente 
tocate la tastiera. 

Volendo avremmo potuto inserire nel nostro programma altre precauzioni come 

le seguenti: 

1. Controllare che il codice CAP (ZIP negli USA) sia solo numerico. 

2. Chiedere una conferma all’operatore quando le risposte sono negative. Questo 
per dare un’altra possibilità di correzione se per caso non si voleva dare la 
risposta NO. 

3. Potremmo aggiungere un altro tasto speciale che rifiuti gli ultimi dati forniti e 
ripristini i precedenti. Infatti nel nostro programma, se per caso inseriamo una 
correzione su un campo invece esatto, siamo costretti a ricaricare il campo 
buono oltre che a ripetere la correzione che volevamo fare. Con questo tasto 
speciale possiamo subito rigettare l’ingresso errato e ripristinare il precedente 
valore. 

Per esercizio provate ad aggiungere queste ulteriori opzioni. Se il vostro calcola¬ 
tore è un CBM 8000 cercate di usare la sua TAB SET invece della funzione TAB. 


PROGRAMMAZIONE DEL DISPLAY E DELLE STAMPANTI 

Quando accendete il vostro calcolatore CBM l’uscita dei dati è mandata sul display. 
Se volete invece portare i dati su una stampante o su un’altra periferica dovete eseguire 
delle istruzioni particolari. 

Anche se a prima vista può sembrare la stessa cosa, programmare un display o 
una stampante presenta delle notevoli differenze. Pensate per esempio che spesso 
una stampante ha un numero di colonne ben superiori a quello di un display; che 
sullo schermo del display potete muovere il cursore come volete, ma non potete di 
certo muovere liberamente la testina di una stampante. 

Stante queste differenze la programmazione di un display e di una stampante 
sono molto simili. 

Quanto diremo ora in questo paragrafo si riferisce solo ai display. Se volete scrivere 
programmi anche per stampanti dovete leggere, oltre a questo paragrafo, anche 
quanto vi diremo nel capitolo 6 per le stampanti. 
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Programmare l’uscita dei dati è molto più semplice di quanto si deve fare per il 
loro ingresso. E questo perchè non si deve tener conto dell’interazione con l’opera¬ 
tore. 

Ecco alcune regole generali: 

1 . Evitare di ammassare troppa informazione in un piccolo spazio. 

2. Se dei dati devono essere incolonnati, allora allineateli a destra o a sinistra così 
che siano di facile lettura. 

3. Usate i caratteri in campo inverso sul display per porre in rilievo titoli o punti di 
riferimento del testo. Non usate il campo inverso per le stampanti perchè 
otterreste caratteri con pochissima risoluzione. 

Vi riportiamo qui di seguito alcuni degli errori più comuni che si fanno quando si 
programmano dati in uscita: 

1. Ricordatevi di porre tra le variabili dell’istruzione PRINT il punto e virgola (;) 
oppure la virgola (,). 

2. Disegnate su un pezzo di carta la configurazione che deve assumere il testo di 
uscita sullo schermo prima di programmarlo. Risparmierete così molto tempo 
per calcolare la posizione delle colonne e delle righe e non dovrete fare inutili 
tentativi di esecuzione del vostro programma. 

3. Se volete ripartire un vettore in un certo numero di colonne fate attenzione che la 
lunghezza del vettore sia divisibile per il numero di colonne. Per esempio 
supponete di avere un vettore N$(I) di lunghezza 25 che volete stampare su tre 
colonne. Potreste pensare di scrivere così: 


:00 FOR 1=1 TO 25 STEP 3 
200 REM PROCESS COLUMN 1 


300 REM PROCESS COLUMN 2 


400 REM PROCESS COLUMN 3 


500 NEXT I 


In tal caso calcolereste anche i valori 26 e 27 che non esistono. È sufficiente porre 
allora una istruzione di controllo della fine del vettore: 


100 FOR I=L0 TO HI STEP ST 


350 1=1+1 

366 IF I>HI THEH 500 


500 NEXT 
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Una particolare attenzione la dovete prestare a quei dati che ottenete dalla lettura 
di un disco. (Per la gestione del disco vi rimandiamo al capitolo 6). I calcolatori 
CBM hanno l’antipatica abitudine di aggiungere spazi vuoti in coda alle stringhe 
che sono lette da disco. Per esempio se avete dei nomi con lunghezza non superiore 
a 20 caratteri e li avete scritti su un disco, potreste pensare che quando li leggete 
avrete ancora gli stessi nomi con la stessa lunghezza. Succede purtroppo che in coda 
ad alcuni saranno attaccati degli spazi vuoti. Questo vi può portare delle complica¬ 
zioni per esempio facendovi superare un punto di tabulazione. Il problema può 
essere superato con la funzione LEFTS. Infatti se avete una PRINT di questo tipo: 

100 PRINT TffiB<5>;N»a>;TfiB<30>,N*a+l> 


dovete riscriverla così: 


100 PRINT TfiB<5);LEFT$(N*<D,29);TRBC30);LEFT*<N*<I+l),205 


Se avete delle stringhe di lunghezza diversa vi può interessare di aggiungere spazi 
vuoti in coda alle più corte e troncare le più lunghe per averle tutte di eguale lunghezza. 

Ciò può essere fatto da questa subroutine: 


10 REM LA VARIABILE B! :TRINCA N* BEVE ESSERE LUNGA £9 CARATTERI 

20 REM SE E PIU' CORTA VENGONO AGGIUNTI ARACI miQT+ CMjTr&j—ipj 

20 REM SE £' PIU LUNGA VIENE TRONCATA 

40 L*>LEH<N$) ' REM L'.-Nl'MERO CARATTERI B! NT 

CO »«“ '' PCM ET CONTIENE 20 SPAZI VUOTI 

50 IF L.O20 THEN HT=LEFT$<f IT, 20> REM NT ''IENE '‘RONCATA A 20 CAPfiTT 

F0 IF L::=20 THEN RETURN REM NT HA LA GIUSTA LUNGHEZZA 

30 tIT=HT+L£FTT■:BT.29-LM> ' REM NT CORTA vi ACGINNCCNC - oiiGT» 

?0 RETURN " 


Quando dovete trattare molti dati è consigliabile che defmitiate una “finestra” in 
cui inserire i dati. Vi spieghiamo questo con un esempio. Supponiamo che X% sia 
una matrice intera di dimensione 14 per 50. Ogni suo elemento sia un numero intero 
di quattro cifre che rappresenta le sue coordinate nel modo seguente: 


X%(I.J) = OIOJ 

Per esempio: 

X%{3.2) = 0302 
X%(19,8) = 1908 
X%(11.12} =1112 
etc. 

Possiamo creare questa matrice con queste istruzioni: 

io Din x;;< 14 , 59 ) 

20 FOR 1 = 1 TO 
30 FOR J=1 TO 50 
40 X.W I .■ J) = I f 100+J 
50 HEXT 
50 NE. ,7 
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Ora desideriamo visualizzare una parte della matrice X%. Useremo le prime due 
righe e le prime 10 colonne per l’intestazione nel modo seguente: 



XX rappresenta un numero tra 1 e 14 
YY rappresenta un numero tra 1 e 50 


L’intestazione è poi ottenuta in campo inverso con questo programma: 


:3U0 REM CREA LE INTESTAZIONI DI RIGA £ DI COLONNA 
2010 PRINT TRBC?>; 

1020 FOR 1=1 T9 3 

1030 FRINT"3 COLONNA*"; 

1040 NEXT 

2050 PRINT CHR*<13>;TAB<9>: 

2060 FOR I=c:.' IO CK+2 

1070 s:>7 IF ILIO THEN SM=3 

1030 PRINT SPCCSM);"a";3TR$<I>;; 

1090 NEXT 

2095 PRINT CHRT(!3>; 

1110 FOR I=RM TO RM+9 

■120 S:.’=l IF ICO THEN ?M=2 

2130 PRINT TRB'.1>; **IGA";SPC<K>;STR»<I); 

1140 NEXT 
2150 RETURN 

Abbiamo deliberatamente creato una finestrella più piccola di tutto lo schermo 
per meglio descrivere il concetto di finestra di dati. Se lo ritenete opportuno potete 
anche estenderla a tutto lo schermo. 

La stringa STR$ è più lunga di un carattere del numero intero per poterne 
rappresentare il segno. Esso sarà visualizzato in campo inverso e bisogna tenere 
conto della sua presenza alla linea 1130 dove si definiscono le posizioni di tabula¬ 
zione. 

Aggiungiamo ora le istruzioni per chiedere all’operatore quali sono i valori 
minimi di riga e colonna che vuole visualizzare. Questo elemento della matrice 
apparirà in alto a sinistra e la finestra sarà completata con gli elementi successivi. 
Ecco le istruzioni da aggiungere: 

5 REM CREAZIONE DI UNA FINESTRA 
20 DIM XM<14.50> 

20 F0P 1=2 TO 14 
30 FOR .'=2 TO 50 
40 yy.t\, ji=mo0+j 
50 NEXT 
:*0 NEXT 
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Eseguite il programma. Per 10 o 15 secondi vi sembrerà che il calcolatore non 
faccia niente, ma in realtà sta riempiendo la matrice X$ mediante il ciclo FOR 
NEXT dalla linea 20 alla 60. 

La PRINT della linea 64 pulisce lo schermo. Le INPUT delle linee 70 e 90 
chiedono quali sono i valori minimi della riga e della colonna. Il comando per pulire 
lo schermo non è stato posto alla linea 65 perchè il programma ritorna appunto a 
questa linea e non vogliamo che la visualizzazione precedente venga cancellata. 

Notate che in ingresso viene chiesto il numero di colonna al massimo fino a 12 
perchè le altre due sarebbero in ogni caso visualizzate. Analogamente il massimo 
numero per le righe è 41 perchè in tal caso vengono visualizzate le righe da 41 a 50. 

I valori interi della matrice X% sono convertiti in stringhe alla linea 150 prima di 
essere stampati alla linea 155. Questa conversione in stringhe ci permette di rendere 
più semplice la stampa e l’allineamento dei valori. Per provare questo rimuovete la 
linea 150 e cambiate come segue la 155: 

:5T FRItT 3PC<5I.'i.;<J I>; 

I numeri saranno allineati purché non visualizzate alcun numero di quattro cifre; in 
tal caso le 40 colonne dello schermo saranno superate. Se visualizzate numeri con 
tre cifre le righe saranno spostate a destra di una colonna. Potete correggere questa 
anomalia aumentando la tabulazione della linea 130 da 9 a 10. Quando porrete in 
esecuzione il programma le righe a 40 colonne saranno superate (overflow) e avrete 
molti ritorni a capo. 

Notate che dopo le istruzioni d’ingresso alle linee 70, 90 e 180 sono stati posti dei 
controlli sulla validità dei dati forniti. 

Quando si usa una finestra è molto comodo permettere all’operatore di spostare 
a piacimento la finestra stessa. Con il simbolo di picche(t)stabi!iamo di muoverla 
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di una riga in alto, cioè che il numero iniziale delle righe sia diminuito di uno. Con il 
simbolo di cuori(,)di muoverla invece di una riga in basso, cioè che il valore iniziale 
sia incrementato di uno. Con il simbolo di minore (<) di spostarla di una colonna a 
sinistra, cioè che il valore iniziale delle colonne sia diminuito di uno. b mime 
stabiliamo che con il segno di maggiore (>) la finestra sia spostata a destra di una 
colonna e quindi il valore d’ingresso delle colonne sia incrementato di uno. 

Il programma per ottenere questo è il seguente e richiede di sostituire le linee da 
180 a 210: 


:S0 PRINT"*«MDOMTINUI? BATTERE 0 N 

190 SET et IF C*="" THEH 190 

200 REM SE C*=PICCHE ALLORA MUOVE DI UNA RIGA IN ALTO 
210 IF THEH RM=p::-l RRIHT CHR*<13>; “W"; GOTO 100 

220 REM SE C*=CU0RI ALLORA MUOVE DI UNA RIGA IN BASSO 
200 IF C$="*" THEH R?I=RK+1 PRINT CHR*<13>J GOTO 100 

240 REM SE C#=< ALLORA MUOVE BI UNA COLONNA A SINISTRA 
250 IF C*="<- THEH CM=C::-1 GOTO 000 
260 REM SE Cf=C ALLORA MUOVE BI UNA COLONNA A DESTRA 
270 IF CS=">" THEH OCM+l GOTO 300 

2S0 REM SE C*=Y, BATTERE NUOVA PICA E COLONNA; SE C*=H ALLORA STOP 
290 IF C*="V“ THEH 65 

295 IF Cf="N" THEH STOP 

296 GOTO 190 : REM RIGETTA OGNI ALTRO VALORE Ci 
300 IF cria OR OC 12 THEH PRINT CHRÌ< 13>; GOTO 70 
?10 GOTO 105 


Notate come è affidabile la logica di questo programma. Ogni ingresso diverso 
dai sei consentiti viene subito rigettato. Se cambiando i numeri delle righe o delle 
colonne essi escono dai limiti consentiti, il programma chiede semplicemente di 
dare nuovi valori. (Le funzioni finestra e “scrolling” del calcolatore CBM non sono 
molto utili in questo esempio poiché noi vogliamo muovere la finestra a destra e a 
sinistra così come la muoviamo in alto e in basso). 

Un aspetto poco elegante di questo programma riguarda il fatto che superando il 
valore consentito per le righe, è possibile ridare solo il nuovo valore per le righe 
stesse. Questo dipende dall’istruzione GOTO 100 delle linee 210 e 230. Se invece 
viene superato il valore delle colonne è possibile ridare sia il valore delle righe che 
delle colonne, come si può vedere con la GOTO 70 della linea 300. Provate voi a 
correggere questa anomalia facendo in modo che si possano dare sempre ambedue i 
valori di riga e colonna oppure uno solo. 

Un altro aspetto che può essere migliorato riguarda il tempo che il calcolatore 
impiega a riempire il vettore X%. Un operatore potrebbe erroneamente pensare che 
qualcosa non funzioni mentre'invece il calcolatore sta compiendo il lungo ciclo di 
caricamento di X%. È consigliabile quindi far apparire un messaggio di avviso sul 
display, prima che inizi tale ciclo, il cui contenuto potrebbe essere il seguente: 


:5 RRIHT "3 ATTENDERE! CARICAMENTO DELLA MATRICE XU" 


Notate che il nostro programma pone molta attenzione a far terminare le 
visualizzazioni alla 39-esima colonna anziché alla 40-esima. Quando usate un 
calcolatore CBM a 40 colonne è preferibile che non superiate la colonna 40 perchè 
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correte il rischio di essere coinvolti nella tecnica di continuazione delle righe detta ad 
“avvolgimento” (wrap around). In tal caso una riga successiva è vista come l a 
continuazione di una riga precedente e vi sarebbe una gran confusione tra i ritorni a 
capo da voi stabiliti e quelli forzati dalla tecnica di “wrap around”. 


Tecnica di "wrap around” per schermo a 40 colonne 

Quando il cursore si trova sulla 40-esima colonna di una qualunque riga e voi 
battete appunto il 40-esimo carattere di quella riga, il cursore va a capo assumendo 
però quella posizione come 41-esima di una riga a 80 colonne. Cioè la seconda riga 
dello schermo è vista come seconda metà di una riga più lunga. 

Con la tecnica di “wrap around”, quando date il comando RETURN, il calcola¬ 
tore esegue un ritorno a capo alla successiva riga logica. In altre parole è il 
calcolatore che riconosce se una riga logica può stare su una sola riga fisica dello 
schermo e lui stesso determina quindi il giusto salto di riga al momento del ritorno a 
capo. 

Se usate il comando POKE per scrivere sulla 40-esima colonna di uno schermo a 
40 colonne, allora il calcolatore non assume di potere avere righe di 80 caratteri. 
Questo può essere fatto con la seguente istruzione: 

POKE 32767 + (L-1)* 40.ASC (CHS) 

dove: 

L è il numero della linea 

CH$ è il carattere da forzare con POKE 


PROGRAMMAZIONE MATEMATICA 


I calcolatori CBM possono effettuare le operazioni di addizione, sottrazione, 
moltiplicazione e divisione su numeri rappresentati con nove cifre. Un numero di nove 
cifre può però non essere sufficiente e causare quindi problemi di calcolo. Per 
esempio il campo consentito per i numeri interi va da 0 a 999999999. Mentre quello 
consentito per i numeri frazionari, o con virgola, va da 0.000000001 a 99999999.9. 
Per molti calcoli questi numeri sono sufficienti, ma vi sono molti problemi di 
ingegneria o commerciali che richiedono numeri con un maggior numero di cifre. 

Per superare questa limitazione esistono due metodi di programmazione: il primo 
usa le stringhe numeriche e il secondo la matematica dei multipli interi in cui un 
numero grande viene ripartito in segmenti più piccoli e ogni segmento è trattato 
separatamente. 
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ADIZIONE 

Sia le stringhe intere che la tecnica dei multipli interi possono essere usate per 
addizionare numeri con più di 9 cifre. “ Augendo” è il primo numero dell’equazione 
e “addendo” il secondo. L’addendo è sommato all’augendo. 


Addizione mediante stringhe numeriche 

I passi da seguire sono: 

1. Fate entrare l’augendo e l’addendo come due stringhe numeriche positive. 

2. Allineate a destra le stringhe. 

3. Addizionate le cifre corrispondenti delle due stringhe compreso il riporto. 

4. Concatenate il risultato in una unica stringa. 

5. Stampate la risposta. 

Passo 1: Fate entrare l’augendo e l’addendo come due stringhe numeriche positive 
mediante una istruzione INPUT. 


Sullo schermo 

10 PRI NT " ITI OH*** ” PRI NT 

20 INPUT 

RIJN 


In memoria 

A$ |l |2!3|4l5|6|7|8|9!0i1i2Ì3Ì4i5la 
B$ j5|7|9|4!3|Sl7|21 


♦ ♦♦Pilli ITI 0N444 

71234567890123436 
?? 5?943572 


A$ è l’augento e B$ l’addendo. Con l’istruzione INPUT potete superare il limite 
delle nove cifre per numero. In questo esempio consideriamo solo numeri positivi, 
ma potete benissimo estendere il programma anche a quelli negativi e ai frazionari. 

Passo 2: Allineate a destra le stringhe. Prima di effettuare qualunque calcolo 
aritmetico dovete allineare le stringhe a destra in quanto il BASIC CBM le allinea 
invece a sinistra. Se non lo fate otterrete risultati completamente errati; infatti 
guardate questo esempio: 


Allineamento a sinistra - errato 

1234567890123456 

4 57943572 _ 

7028925090123456 


Allineamento a destra - corretto 

1234567890123456 

4_ 57943572 

1234565948067028 


Le istruzioni seguenti allineano a destra le più corta delle due stringhe riempien¬ 
dola di zeri a sinistra. Si ottengono così due stringhe di lunghezza uguale. X è la 
lunghezza di A$ e Y quella di B$: 


30 BLflNK*=“ 

40 X=LEN<A* >iV=LEN< Et) 

50 IP XCV THEN At=LEFTt(BLHNKt,Y-X>4fl» 
60 IF X>Y THEN Et=LEFTt(ELAHKt,X-V>+Bt 
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Abbiamo assunto di trattare in questo esempio numeri con 16 cifre al massimo. 
Per questo motivo alla linea 30 abbiamo preparato una stringa buffer BLANK$ 
contenente 16 spazi vuoti. 

Alle linee 50 e 60 viene ricercata la stringa più corta (nel nostro caso B$) e la sua 
lunghezza sottratta a quella dell’altra stringa: 

60 IF V<X THEN B*=LEFT»<BLFINK» +B* 

Lunghezza della stringa più corta sottratta 
a quella della stringa più lunga 


Se per esempio la lunghezza di A$ fosse 16 e quella di B$ 8, la differenza sarebbe 
ancora 8: 


A$ |1| 213t4l5l6l7l8Ì9l6TTÌ2l3r4l5l6l X = 16 
B$ I5|7|9|4|3|5;7|2] Y = 8 

A questo punto inseriamo 8 spazi vuoti davanti a B$ per ottenere anche B$ lungo 16 
cifre; l’istruzione è la seguente: 


X-Y =8 
16-8 = 8 


LEFTf<BLftNK*,X-V>+B* 


e al procedura è la seguente: 

B$=LEFT$(BLANK$.X-Y) 
B$=IEFT$(BIANK$ 16 8) 
B$=LEFT$(BlANK$8) 
B$=lEFT$(| à[B|BlB|ti]ti]tfltllBltlltlHiittl|K|lilltl| .81 
B$ = [5]6||g«g]S}S] 
BS- [j<lÌ|tl|K|BiK|KlB|5i7|9|4|3|5|7|2| 

A$= [TÌ2Ì3Ì4|5|6i7|8i9i0il|2|3Ì4Ì5l6i 

16 cifre 


+ B$ 

+ B$ 

+ B$ 

+B$ 

-t-| 5fW4Ì3l5T7Ì2| 

BS= ltlÌB|B|tl l Bitli«;t(i5l 7|9|4| 3i5i7|2Ì 

16 cifre 


Passo 3: Addizionate le cifre corrispondenti delle due stringhe. Potreste pensare che 
la somma delle due stringhe si possa fare così: 

CS=fi*+B* 

Questo è un notevole errore perchè così si concatenano le stringhe e non si 
sommano: 


C$=A$+B$ 

C$ = |l|2l3|4|5|6|7|8l9l0|l|2|3|4|6l6l + |a|tf|l<|tfllMM]tl|5|7|9|4|3]5|7[2l 
CÌ = lll?|3|4|5|6|7|8|9|0|l|2|3]4|5|6ltllB|6|tf|tl!6Ì8|lli|5|7l9l4|3l5l7|2| 
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Per sommare il contenuto numerico delle due stringhe bisogna estrarre cifra per 
cifra trasformarle in numero e quindi sommarle. Per fare questo useremo le funzioni 
VAL e MID$: 

1020 FOR I=LEN<ft*> TP 1 STEF-1 
1030 R=vfìL<Minf'Fi». i, i:>:> 

1050 E=VfiU <MID* < B*, 1, 1 > > 

1100 NEXT I 

Indichiamo con A la cifra estratta da A$ e con B quella estratta da B$. I è invece 
un contatore inizializzato con il valore della lunghezza massima delle due stringhe. 
Nel ciclo FOR NEXT I viene decrementato e una cifra alla volta viene estratta da 
destra verso sinistra con la funzione MID$: 

1 MID$(B$,I, 1 ) 

16 «««««66B57943572 
15 » 6 « « «Hi « (f 5 7 9 4 3 5 7 2 
14 «« «« « tf 61 « 5 7 9 4 3 5 7 2 
13 B6tó6Btf6&57943572 
12 Ktf-tf66B6057943572 
11 «BliUiiBtf «657943572 
10 «66tt66tt«57943572 
9 666«6«6657943572 
8 «««««««tó57943572 
7 ««««««6657943572 
6 ««««B66657943572 
5 «««««««657943572 
4 «««B666B57943572 
3 «««6666657943572 

2 «««««66B57943572 

1 ««66666B57943572 

La funzione VAL converte poi ogni cifra nel suo valore numerico: 



Man mano che le cifre sono convertite in numero vengono sommate e il risultato 
riportato nella stringa C$: 
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1060 N—1 


Inizializza il puntatore di stringa N 
Iniziai izza il riporto 


101O I'=0 

1020 POR I=LEN<ft*> TO 1 STEF' -l Inizializza il contatore di decremento I 
1030 R=VFIL ■: MID# < Fi*, I • 1 > ) Estrae le cifre separatamente e le converte in numerico 
1O40 Fi=Fi+Ii li =0 Addiziona il riporto D; azzera il riporto D 

1050 B=VflL<MID* CE*.• X - 1* ^ Estrae le cifre separatamente e le converte in numerico 
1060 C=Fi+B Addiziona i valori estratti di A$ e B$ 

107O IF 0=10 THEH Ii=l Tiene conto del riporto 

1030 IF D=1 FINE 1 = 1 THEH H=2 

1030 C*=RIGHT*<STR*<C>•N>+C* Forma la stringa risultato 
1100 NEXT I 

Ovviamente bisogna tenere conto del riporto, che eventualmente otteniamo 
sommando ogni coppia di cifre, per cui introduciamo la variabile D che conterrà 
appunto tale riporto. Inizialmente D è posto eguale a zero alla linea 1010. Durante 
le singole somme se C diviene maggiore o eguale a 10 allora D è posto eguale a 1 per 
essere poi sommato con le successive due cifre: 

1 2 3 *'4 *'5 *'6 '7 *'890 1 2 

+ _ 6 7 9 435 72 

123 5 1 4 7 32584 

Alla linea 1070 il riporto viene posto eguale a 1 se C è maggiore o eguale a 10; 
altrimenti esso rimane nullo: 


1070 IF 0=10 THEH H=1 
A g 
+ B @9] 

C 05)—*-15>=10 — D0 


+B 0 

C [55] — — 3 < 10 —• D [55] (nessun cambiamento) 

Notate che D al massimo può essere unitario perchè stiamo sommando solo due 
cifre la cui somma massima è 18 con riporto di 1. 
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Alla linea 1040 viene fatta la somma del riporto e in tal caso D è azzerato. 

Passo 4: Concatenate il risultato in una unica stringa. Anche il risultato dovrà 
essere espresso sotto forma di stringa per ovviare alla limitazione delle nove cifre 
massime. 

Alla linea 1090 viene costruita la stringa risultato C$. La funzione STR$(C) 
converte C in stringa. La funzione RIGHTS estrae gli N caratteri più a destra di 
STR$(C). Normalmente N è posto eguale a 1 (linea 1000) perchè vogliamo estrarre 
solo la cifra significativa e non il segno di ogni singola somma. Il carattere più a 
sinistra di C rappresenta invece il segno e non vogliamo che sia ogni volta concate¬ 
nato in C$. 


1000 N=1 
N0T] 

1060 C=fl+B 

c fcìsl =aB+ b [5|2] 

1090 C#»RIGHT*<STR#<C>•N>+C* 

C$=RIGHT$(STR$(CI.1I+C$ 

C$=RIGHT$l|5l8l.lH-C$ 

C$ = i + C$ 

Anche quando C supera 10 noi dobbiamo mantenere solo la cifra più a destra 
perchè l’altra è già compresa nel riporto. 

N verrà posto eguale a 2 solo nel caso che l’ultimo riporto sia unitario D= 1 e che 
il contatore I sia 1=1. Questo è importante perchè, se ambedue queste condizioni 
sono vere, il ciclo non dovrà iterare ancora ed eseguire la linea 1040 dove D perde il 
suo valore. Ponendo N=2 nell’ultimo ciclo ambedue le cifre di C sono poste in C$ e 
l’ultimo riporto non viene quindi perso. 


1070 IF c>=10 THEN D=1 
C|«T2]> = 10 0® 

1080 IF D*1 fluii 1 = 1 THEN N=2 

d® im Ngn 

1090 C*=RIGHT* <STR* <C >.N >+C* 

C$=RIGHT$( laTT[2l .2)+C$ 

C$ = [T]2)+C$ 

C$= |1|2|X|X|X|X|X|XlX| 

Ricapitoliamo le funzioni svolte dal ciclo FOR NEXT dalla linea 1020 alla linea 
1100 : 

1. Estrazione delle singole cifre dalle due stringhe numeriche e loro conversione in 
numero (istituzioni 1030 e 1050). 
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2. Le cifre corrispondenti sono sommate due alla volta (istruzione 1060) e viene 
posto l’eventuale riporto (istruzione 1070). Il riporto è sommato ad A nella 
colonna successiva (1040). 

3. Le singole somme sono quindi unite e convertite in unica stringa (1090). 

Passo 5: Stampate la risposta. Per completare questa routine di addizione inseriamo 
le istruzioni di ingresso e di misura delle lunghezze delle stringhe (istruzioni da 10 a 
1010). Alla fine poniamo le istruzioni di uscita e di azzeramento (1110 e 1120). U 
programma completo si presenta così: 


10 PRINT''."J***FiIiDITIT 0N***'' FRI NT 
20 INPUT Rtitt 
30 BLANK*=" 

40 X=LEN<A*> V=LEN<.B*> 

50 IP XCV THEN ftf=LEFTJ' BLHNt f, V 
60 IP V<X THEN B*=LEFT*<BLANK#,X 
1000 N=1 
1010 B=0 

1020 POR I=LEN<fl#> TO 1 STEP-1 
1030 fi*VflL(»1IDt<ftlj 1,1)) 

1040 fi=Pi+D P=0 

1050 B»VfM-<MID*<B#..I, 1 >) 

1060 C=R+B 

1070 IP 0=10 THEN B=1 
1080 IF B=1 AND 1=1 THEN N=2 
1090 C*=RIGHT*<STR*<C>,N>+C* 

1100 NEXT I 

1110 FRI NT F'RINT"ANSWER= ";C» 

1120 C#="" PRINT : GOTO 20 
1130 END 


Pulisce lo schermo 
Ingresso stringhe numeriche 


X.J+H# t Allineamento a destra 
Y>+B* ( 


Ciclo di addizione 


Stampa C$ 
Azzera C$ 


Ecco un esempio di esecuzione: 


♦**fiBDITI0N*4* 

312345 

■'7579 


RNSUER» 12924 

?1234567890123456 
??57943572 

RNSWER= 1234567948067028 


Addizione di interi multipli 

Un altro metodo per superare l’ostacolo delle nove cifre massime è quello che fa 
uso degli interi multipli. 
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La tecnica degli interi multipli ripartisce un numero grande in segmenti più piccoli 
che vengono poi trattati separatamente. Le singole risposte sono poi unite in un unico 
risultato: 


Numeri in ingresso | xxxxjxxxx }-| 
I XXXX!XXXX I 

/ \ 

Aito | xxxx |-| 
l~ xxxx I 


Calcolo 


Risposta alta | xxxx 




! XXXX 

1 

‘n XXXX 

J 


Calcolo 

I xxxx 

R 


Risposta totale | XXXXXXXX | 


I passi di questa procedura sono i seguenti: 

1. Caricate l’augendo e l’addendo come due stringhe numeriche positive. 

2. Dividete i numeri in due parti eguali che verranno chiamate alta e bassa. 

3. Calcolate separatamente la somma delle parti alte e delle parti basse. 

4. Concatenate i due risultati in una unica stringa. 

5. Visualizzate il risultato. 

Passo 1: Caricate l’augendo e l'addendo come due stringhe numeriche positive: 


10 PRI NT " ."Jti**MULT I F'LE INTEGER RUBITI OH***" PRIHT 
20 INPUT A*,B* 

RUN 


♦♦♦MULTIPLE INTEGER ABBITIOH*** 

?1234567890123456 
?757943572 


A$ è l’augendo e B$ è l’addendo. I due numeri sono caricati come stringhe per 
ovviare alla limitazione delle nove cifre massime e per poter usare le funzioni di 
stringa per dividere i due numeri in parti più piccole. 

Passo 2: Determinare la massima lunghezza dei numeri in ingresso e calcolare il 
numero di segmenti in cui ripartirli. Per esempio se la massima lunghezza è 16 i due 
numeri possono essere ripartiti in due parti di 8 cifre. 
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Per rendere più semplice il nostro esempio supponiamo che la lunghezza massi¬ 
ma sia appunto 16 e divideremo i nostri numeri nella parte alta e parte bassa di 8 
cifre ciascuna. 


|xxxxxxxxxxxx>o<xx| 


z 


alto Ixxxxxxxx 


8 cifre 


Ixxxxxxxx basso 


-I- 


8 cifre 


Dapprima dobbiamo determinare quale numero è il più lungo. X e Y sono le 
lunghezze di A$ e B$ rispettivamente: 


1000 X=LEH'Rf• V=LEN<B*> 


Successivamente si confrontano le due lunghezze. Se X > Y allora la variabile F 
(cioè il fattore di divisione) è posta eguale a un mezzo di X. Se invece Y > X allora F 
è posta eguale a un mezzo di Y: 

1002 IF JOV THEN F=X/2 GOTO 1006 
1004 F=V/2 


oppure in quest’altro modo: 

1002 F=Y/2 : IF X>V THEN F=X/2 


Nel nostro esempio A$ = “1234567890123456” e B$ = “57943572” per cui 
otteniamo: 

1000 x=len<:h*> v=len<b*> 

X = 16 Y =8 

1002 IF JOV THEN F=X,'2 GOTO 1006 
16>8 Istruzione vera, quindi 
F= 16/2 
F = 8 

Il programma continua alla linea 1006 

Una volta calcolato il valore di F il programma continua alla linea 1006. Nel caso 
che F sia un numero frazionario allora esso viene posto eguale alla sua parte intera 
più uno. Per esempio se avessimo trovato per F 7.5 allora si pone F = 8: 


1006 IF F>INT(F> THEN F=INT<F>+1 
Se 7.5 > 7 allora F = 7 + 1 
F = 8 
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Per-ottenere poi la parte alta (High) e la parte bassa (Low) della somma di A$ e 
B$ ecco qui di seguito le istruzioni: 


1000 X=LENCR*> V*LEN< B*> 

1002 IF X>V THEN F=X/2 GOTO 1006 
1004 F-V/2 

1006 IF F>INTCF> THEN F*=INT<F> + 1 

1010 IF X<*F THEN RH=0 RL=VRL<fi*> GOTO 1040 

1020 RH=VRL<LEFT*<R*.X-F>> 

1030 f(L=VRLCRIGHT»<R*.F)) 

1040 IF V<-F THEN BH=0 BL=VRL<B*1 GOTO 1020 
1030 8H=VRL<LEFT*<B»,V-F>> 

1060 BL=VRL<RIGHT*(B*.F>) 


Le istruzioni dalla linea 1010 alla 1040 confrontano le lunghezze delle stringhe con 
il divisore F che in questo caso è 8. Se la stringa è minore di 8, allora a AH (o BH) 
viene assegnato il valore zero lasciando AL eguale a A$ (o BL eguale a B$). Se la 
stringa è più lunga di 8 deve essere divisa nella parte alta e in quella bassa. Le parti 
basse AL o BL ricevono i valori corrispondenti alle 8 cifre poste a destra, mentre le 
parti alte AH e BH ricevono quelli posti a sinistra delle parti basse: 

10.20 fiH=VfiL<LEFT*<fi*..X-F' > 

AH«VAIILEFT$(A$ 16 8» 
AH-=VALILEFTSl |ÌT2l3|4r5l6Ì7l8l9lOÌll2Ì3 l 4l5T6i 8/' 

AH=V Ali li |2|3|4|5l6l7l8l ) 

AH= [tiT2345678| 

1030 AL-VAL ■: RI C’HT* • fi* . F • > 

Al=VAL(RIGHT$| |i j2|3|4j5l6f7|8]9lb|l)2j3[4f5[6l 81- 
AL=VALl f9|0|1|2|3|4|5l6l ) 

AL = |S9 0123456| 


E analogamente per BH e BL. Ricordiamo che la funzione VAL converte una stringa 
numerica in un numero. 

Passo 3: Una volta che le stringhe sono state divise in segmenti sufficientemente 
piccoli, così che il calcolatore CBM li possa trattare direttamente, allora inizia la 
procedura di addizione. Con questa tecnica addizionate gruppi di numeri corri¬ 
spondenti. AH sarà addizionato a BH e AL a BL. A questo punto possiamo 
sfruttare le capacità aritmetiche del nostro calcolatore perchè si tratta di sommare 
numeri contenuti nei limiti delle nove cifre. Nel caso precedente dovevamo invece 
fare la somma cifra per cifra in quanto non potevamo addizionare numeri rappre¬ 
sentati da stringhe. 


AH lai 23456781 
+BH 10000000001 
CH 10123456781 


AL |09O123456| 
+BL 10579435721 
CL 101480670281 
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Le parti basse possono essere così sommate: 

1076 CL#»STR*<fiL+£L> 


e poste subito come parte bassa del risultato CL$. Non è necesario che il risultato di 
questa somma parziale sia posto sotto forma di stringa, ma questo permette di 
usare la funzione LEN per tener conto del riporto. 

Lo spazio riservato al segno di CL$ viene troncato mediante la funzione MID$ in 
quanto non dobbiamo conservarlo per ottenere la stringa finale C$; questo è fatto 
alla linea 1075. 

Alla linea 1080 viene fatto il controllo se esiste il riporto. Ciò si può fare vedendo 
se la lunghezza di CL$ è maggiore di F; in tal caso la cifra più a sinistra sarà 
sommata alla seconda somma parziale CH$. (Il valore del riporto D può essere Oo 
1 ). 

CHS è ottenuta sommando AH, BH e D. 


1070 CL-r=3TR.fv hL+BL • 

Cl$=STR$l [1^901234561 + ltei5794 3 572| ) 

CL$ = STR$( 1«148067028l > 

CLS = | tf|1|4|8|0|617|0f2l8l 

!075 CL-r=Min*<CLf .2.LENcCL*)-l • 
Clì=MIO$l lB|ll4|8 |0|6|7|Q|2l8l 2 10 11 
CLS-MID$l (BTl|4l8|0l6|7lQl2l8l 2 91 
CL$ = |1l4|810|6|7|0|2T8l 

1080 IF t_EH'CLf CF THEN D=1 

LEN(Cl$l=9 F=8 
9 >8-0 = 1 

1 0‘J^O CHI'-3 T F i hH+BH+Ii • 

CH$=STRS< lten 23456781 + IbOOOOOOOOI + 0* 
CH$=STR$( |ai 2345679U 
CMÌ= |a|1|213|4|6|6l7|9| 

! 0 ?5 CHi =MI li» •CH* . 2 . LEN < CHS -1 > 
CH$=MID$( |BlÌT2l3l4r5[6r7l9l 2 10 li 
CHÌ=MID$l |tlll|2|3|4|5'6|7|9] 2 9) 

CHS = |l|2|3|4|5|6F7l9l 


Passo 4: Concateniamo ora le due somme parziali CHS e CLS. Il segno e il riporto 
sono troncati da CLS prendendo le sole 8 cifre più a destra della stringa: 
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1100 C*=CH*+RIGHT$<CLf,F > 

C$=CH$ l^ill2l3Ì4j5l6|7l9| + RlGHT$(CL$ |ani4j81016|7lol2l8l ,8) 
C$« N|1|2|3|4|516|7|91 + I4|8|0|6l7|0|2|8l 
C$= ltflH2|3l4l5l6|7|9l4|81016l7lÒl2T8| 

Passo 5: Visualizzazione del risultato. 

1110 PRINT -PRINT "RNSMER* " ; C* PRI NT 

Il programma è ora completo. Questa addizione di interi multipli accetta due 
numeri interi positivi che possono avere fino a 16 cifre. Ogni numero è diviso in due 
segmenti, uno alto e uno basso, di 8 cifre ciascuno. I segmenti alti e quelli bassi sono 
sommati separatamente e i due risultati sono concatenati in una unica stringa che 
può essere lunga sino a 17 cifre. In altre parole questa routine vi permette di avere 8 
cifre di più del massimo consentito per i calcolatori CBM. 

Ecco il programma completo e un suo esempio di esecuzione: 


IO PRINT "^♦♦MULTIPLE INTEGER fiDLITITON***" PRINT 
2© INPUT fi*. E* 

1000 X=LEN<fi*> V=LEN<B*> 

1002 IF X>V THEN F»X/2 GOTO 1006 
1004 F=V/2 

10O6 IF F>INT<F> THEN F=INT<F>+1 

1010 IF XC-F THEN fiH*0 RL*VfiL<fl*> GOTO 1040 

1020 fiH=VfiL < LEFT* <fi*,X-F> > 

1030 fiL=VflL(RIGHT$<fi*,F)> 

1040 IF V<=F THEN BH=0 BL=VftL<B*> GOTO 1070 
1050 BH-VfiL<LEFT*<B*,V-F>> 

1060 E'L=VRL < RI GHT$ •' E* , F > > 

1070 CL*=STR*<fiL+BL> 

1075 CLt=MID*<CL*,2,LEN<CL*>-l) 

1080 IF LEN<CL*>>F THEN D=1 
1030 CH*=STR*<fiH+BH+D> 

1035 C H*=MI D$ < CH*, 2, LEN< CH* >-1 > 

1100 C*=CH*+CL* 

1110 PRINT PR I NT "flNSWER*"; CS■ PRINT 

1120 fiH=0 ftL*0 BH=0 BL»0 D=0 CH*-"" CL*»"" C*="" GOTO 20 
1130 END 


♦♦♦MULTIPLE INTEGER RDDITZON*** 

?1234567890123456 
??37943372 

RNSWERV 1234567948067028 


SOTTRAZIONE 

In analogia a quanto visto per l’addizione, potete sottrarre numeri con più di 
nove cifre usando uno dei due metodi: mediante stringhe numeriche o con l’uso 
degli interi multipli. 
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Sottrazione mediante stringhe numeriche 

Molte delle cose dette per l’addizione valgono anche per la sottrazione. I passi 
della procedura per la sottrazione sono i seguenti: 

1. Caricate il minuendo ed il sottraendo come due stringhe numeriche positive. 

2. Allineate a destra le due stringhe. 

3. Determinate quale è la stringa più lunga. 

4. Sottraete le cifre corrispondenti delle due stringhe tenendo conto dei riporti a 
prestito. 

5. Concatenate i risultati parziali in una unica stringa. 

6. Eliminate gli zeri posti avanti al risultato. 

7. Visualizzate il risultato. 

Passo 1: Mediante una istruzione INPUT caricate i valori del minuendo e del 
sottraendo come due stringhe numeriche positive: 

10 PRINT”###SUBTRflCTIOH*##":PRINT 
20 INPUT 

RUN 

**#SUBTRflCTION##* 

7123456789012 
7757943572 

A$ è il minuendo (il numero a cui sarà tolto un altro numero). 

B$ è il sottraendo (il numero tolto al minuendo). 

Passo 2: Allineate a destra le due stringhe numeriche come avete già visto fare per 
l’addizione: 

30 BLFlNK#= '' 

40 X=LEN<A*> V=LEN<B#> 

50 IF X<V THEN ft*=LEFT*<BLFlNK*, V-XJ+ft* 

60 IF VOi THEN B*=LEFT*<BLfiNK*,X-VJ+B* 

Passo 3: Nel caso della sottrazione dobbiamo prima determinare quale delle due 
stringhe numeriche ha il valore maggiore. Sebbene due stringhe possano avere eguale 
lunghezza, i loro valori possono essere molto diversi. 

I valori di A$ e di B$ sono confrontati mediante la funzione VAL alle linee 65 e 
70: 

65 IF VALC A$ ) =VALC> THEN C*="0": GOTO- 1150 
70 IF VAL<A*»VAL<£«» GOTO 1000 

Noi supponiamo di sottrarre B$ da A$. 

Se A$ è maggiore di B$ abbiamo un semplice problema di sottrazione e il 



206 



programma prosegue alla linea 1000. Se invece B$ è maggiore di A$ avremo un 
risultato negativo. 

In questo secondo caso cambiamo il contenuto di A$ con B$ e viceversa, così da 
sottrarre sempre il numero minore dal maggiore, e poi poniamo il segno meno al 
risultato. 

Per esempio sottraiamo 5 da 3. È ovvio che in tal caso VAL (B$) > VAL (A$) cioè 
il sottraendo è maggiore del minuendo. 

A$ 0 

b$ m 

Cambiare A$ con B$: 

A$[| B$|] - A$(U B$[3] 

Sottrarre: VAL(A$)-VAUB$)=C$ 

AS[5) - B$(3] - C$[2] 

Convertire in negativo: 
c$ = --•■ + C$ 

-t- Cì [2l - C$ F2l 

Risposta: 

c$ ED 

Le due variabili sono commutate alla linea 80: 



B*=X# 


Istruzione 

Memoria 


X$ A$ 

8$ 

: 

0 3 

5 

X$=A$ 

3 3 

5 

A$=B$ 

3 5 

S 

B$=X$ 

3 5 

3 


X$ ha la funzione di memoria di transito. Senza X$ il contenuto originale di A$ 
andrebbe perso perchè su di esso si sovrappone il contenuto di B$; infatti: 

Istruzione Memoria 

A$ B$_ 

: 3 5 

A$=B$ 5 5 Errato 

B$=A$ 5 5 

Più avanti nel corso del programma avremo bisogno di sapere se le due variabili 
sono state commutate. Per avere questa informazione poniamo un “marker” (o 
“flag” o segno di avviso) che appunto ci segnali che A$ e B$ sono state scambiate. 
Se S=0 il cambiamento non è avvenuto, se S= 1 il cambiamento c’è stato. Alla linea 
90 si pone appunto il marker S: 

S~ 1 

Se S= 1 è chiaro che il risultato della sottrazione sarà negativo. La risposta negativa 
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si otterrà concatenando un segno meno davanti a tutto il risultato prima di 
stamparlo o visualizzarlo. Questo si effettua alla linea 1140: 

l 140 lt 1=1 T HEN C#="-"+€# 

Passo 4: Sia che il risultato sia positivo che negativo, abbiamo ora A$ maggiore di 
B$ per cui possiamo effettuare una normale sottrazione. Tale sottrazione appare 
alle linee da 1000 a 1080 ed è analoga alle linee da 1020 a 1100 del passo 3 
dell’addizione con stringhe numeriche, in quanto le cifre sono estratte dalle stringhe 
nello stesso modo. Alla linea 1050 la variabile D di riporto è ora usata come riporto 
a “prestito”. Se (A-B) < 0 allora una decina deve essere presa a prestito dalla 
colonna a sinistra facendo aumentare il valore di A di 10. D è allora posto eguale a 
-1 perchè “1” è stato imprestato alla colonna di destra. In complesso avremo: 


1006 REM**SUBTRflCTIGN ROUTINE** 
1010 FOR I-LEN TO 1 STEF-1 

1020 fl=VftL'NI DJ < Hf,1,1 ?> 

1036 Fl=Fl+Ii D-0 
1040 B=VFIL < MI li# < B*, I ■ 1 .> > 

1050 IF <fl-B><0 THEN H=-l fl=Fl+10 
1060 C=Fl-B 


l 2 
0_0 

! 2 


.10 ».I0,-U) 

3 H "f 5 0 7 8 

0 0 5 7 9 4 

3 3 9 8 8 4 


•0 (T 1 2 

3 5 7 2 

6 4 4 0 


Passo 5: Concatenamento dei risultati in una unica stringa. Questa parte del 
programma è presa direttamente dalla linea 1090 dell’addizione con stinghe nume¬ 
riche eccetto che la variabile N non è usata perchè non vi sarà mai un riporto finale. 
Nel nostro programma il concatenamento finale è riportato alle lina 1070: 

1070 CS -RIOHI#CàTR#• C ' 1 ' +C* 

Passo 6: La sottrazione può generare degli zeri posti davanti al risultato. Median¬ 
te un ciclo FOR NEXT, dalla linea 1090 alla linea 1120, li eliminiamo usando la 
funzione VAL e una variabile L come contatore: 

1050 FOR 1 = 1 IO LEM • 

1100 IF VftL•*.*M11'#\C# • I • 1 > '-0 THEN L»L*1 

1110 IF VFlL. LEFT#<C# • I > >06 THEN I=LEN<C#.' 

1130 NEXT I 

Il ciclo FOR NEXT ha estremi 1 e la lunghezza della stringa C$. Ad ogni passo 
ricerca gli zeri o gli spazi vuoti, da sinistra verso destra, mediante la funzione VAL e 
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incrementando il contatore L (istruzione 1100). Appena incontra il primo carattere 
non nullo o non vuoto pone la variabile di ciclo eguale al valore massimo così che il 
ciclo si interrompe subito. 

Una volta che il numero di zeri o spazi vuoti è stato determinato, separiamo tali 
zeri dalla stringa C$ mediante le funzioni R1GHTS e LEN alla linea 1130. Estrarre¬ 
mo infatti i LEN (C$)-L caratteri più a destra della stringa risultato C$: 


C$ H0|0|1|2|3|5l7| 

I MID$(C$.I.1) 

1 0012357 =0 

2 0012357 =0 

3 0012357 < >0 

7 


IEN(C$) = 7 


l = 1 
L = 2 

I = LEN(CS) 

I = 7 esce dal ciclo 


1130 C*=PIGHT*0:#.LEN<X*'-L> 


C$=RIGHT$ 1 101011121315171 ,7-2) 
C$=RIGHT$ l )0|0|1 |2|3|5l7l .5l 
CS= |l|2|3|5|7] 


Passo 7: Visualizzazione del risultato C$. Prima di far uscire il risultato finale 
dobbiamo vedere se esso è negativo controllando il valore del marker S alla linea 
1140. Se S=1 allora A$ è minore di B$ e quindi il risultato è negativo e dobbiamo 
porre il segno meno davanti a C$. Se invece S=0 allora il risultato è positivo e non 
dobbiamo aggiungere nulla a C$. Alla linea 1150 stampiamo il valore di C$: 

1140 IF 3=1 THEN C*="-"+C* 

1130 PR I UT PRI NT " FINSWER= " ; CJ PRI NT 


Alle linee da 1160 a 1180 annulliamo tutte le stringhe e le variabili cosi da poter 
rimandare il programma al suo inizio per accettare nuovi dati in ingresso. Il 
programma completo è il seguente: 


IO FPINT"rj###SUETRftClTI0N4s*4!" F'PINT Pulisce lo schermo 

20 INPUT Ingresso siringhe numeriche 

30 BLrìNK-t= " " ) 

40 :: = LEN<MtO V=L.EN'.B4.) ( Allineamento a destra 

50 IF X<V THEN rl4=L£FT4 : <E^Ll-iNKit.. V—TO+Fif j (come linee 20-60 del pro- 

60 IF V<X THEN B*=LEFTf CBLflNK-*. ) gramma di addizione) 


65 IF V«L<fi*>=VflL<B*> THEN C*="0" 
70 IF VAL< fi*»=VAL< B* > GOTO 1000 
30 Rt=Bt Bf=K4 

30 S=1 


GOTO 1150 

1 Se A$ < B$. 
f le stringhe 


commuta 


209 



1006 REM**SUBTRflCTIOH ROUTINE** 

1010 POR I =LEN C Ri > TO 1 STEF'-l 
1 ©20 h=V0L <MID* < fli, I .• 1 > > 

1030 0=1=1 + 11 D=0 
1040 E=VhL < MID* < E* .. 1, 1 > y 
1050 IF < Ft-B >C0 THEN D=-l fl=H+10 
1060 C=ft-B 

1070 C*=RIGHT$<STR$<C> .■ 1.' +■ C-f 
1 OSO 41EXT I 

1030 POR 1=1 TO LEN<C*> 

1100 IF VflLCNIDtCC*, I, 1>>=0 THEH L=L+1 J> Troncamento degli zeri 
1110 IF VflL<LEFT*<C#, I ))O0 THEN I =LEH<C$I>J anteriori e degli spazi vuoti 
1120 NEXT I 

1130 C*=RIGHT*<e#,LEN< C# >-L > 

1140 IF S=1 THEN C*="-"+C# 

1150 F'RINT FRI NT "HMSUER= " * C T F'RINT Stampa la risposta 

1160 C*=“” fi**"" Ef="" X*»"“ | 

1165 Fi=6 E=0 C=0 D=0 s=0 X=0 V=0 ( Azzeramento 

1170 3OTO20 
1130 END 


Ì Ciclo di sottrazione (analo¬ 
go alle linee 1020-1100 
del programma di addizio¬ 
ne) 


***SUBTRfìCTION*** 

7123456789012 

7757943572 

ftNSWER= 12339S845440 


Il programma per la sottrazione di stringhe appena descritto presenta però un 
problema: se il minuendo e il sottraendo hanno lo stesso numero di cifre e se in 
ambedue i casi le nove cifre più significative sono eguali, allora il risultato è nullo 
anche se le altre cifre sono diverse. Per esempio se provate a sottrarre 123456789000 
da 123456789012 otterrete 0 pur non essendo i due valori eguali. Questo errore 
deriva dall’istruzione della linea 65 in cui viene usata la funzione VAL per conver¬ 
tire in numero le due stringhe A$ e B$. La funzione VAL infatti converte solo le 
nove cifre più significative di sinistra e trascura le altre! Provate voi a proporre una 
soluzione diversa per risolvere questo problema; per esempio potete confrontare 
separatamente le parti alte e le parti basse dei due numeri. 

Sottrazione di Interi multipli 

Come nel caso precedente dell’addizione, la tecnica degli interi multipli permette 
di ripartire un numero in segmenti più piccoli e di calcolare separatamente la 
sottrazione di segmenti corrispondenti. Il risultato complessivo si ottiene unendo 
poi i singoli risultati parziali. Ecco i passi della procedura: 

1. Caricate il minuendo e il sottraendo come stringhe numeriche positive. 

2. Determinate quale stringa ha il valore maggiore. 

3. Dividete i numeri nelle parti alte e basse. 

4. Calcolate la differenza separatamente per le due parti alte e per le due parti 
basse. 
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5. Concatenate i due risultati in un unico risultato. 

6. Troncate gli zeri a sinistra. 

7. Visualizzate la risposta. 

Passo 1: Caricate il minuendo e il sottraendo come due stringhe numeriche positive: 

10 PRINT".Hi*#MULTIPLE INTEGER SUBTRflCTION***" FRINT 
20 INPUT h*.B» 

RUN 

♦«•MULTIPLE INTEGER SUBTRACTI0N**« 

?123456789012 
?757943572 

Il minuendo A$ e il sottraendo B$ sono caricati come stringhe così da superare la 
limitazione delle 9 cifre massime. 

Come nel caso dell’addizione, poniamo che i due numeri abbiano al massimo 16 
cifre così da poterli dividere in due segmenti di 8 cifre ciascuno. 

Passo 2: Determinare quale stringa ha il valore maggiore. Se A$ è eguale a B$ il 
programma salta alla linea 1190 dove stampa il risultato zero. Se B$ è maggiore di 
A$ il risultato è negativo e le due stringhe sono commutate tra loro così da avere 
sempre il valore maggiore in A$. Dopo il calcolo della loro differenza si porrà un 
segno meno davanti alla stringa C$. Come nel caso della sottrazione con stringhe 
numeriche, anche qui si pone un marker S per ricordare che le due stringhe sono 
state commutate e il segno del risultato è negativo: 

30 IF VfìL<fi*»VflL<B*> THEH 1000 
40 >:r=MT fit=Br : b*= x* 

50 8=1 


Alla linea 50 viene posto il marker e alla linea 40 vengono commutate tra loro A$ e 
B$ come abbiamo già visto nel paragrafo precedente. 

Passo 3: Ripartizione di A$ e B$ in due segmenti più piccoli: le parti alte e le parti 
basse. 


1000 X=LEN<fl»> : V=LEN<B«> 

1002 IF X>V THEN F=X/2 GOTO 1006 
1004 F=V/2 

1006 IF F>INT<F> THEN F=INT<F>+1 

1010 IF XOF THEN flH=0 HL=VflL<FI*> : GOTO 1040 

1020 flH=VfiL<LEFT»Cft*,X-F>) 

1030 AL»VflL<RIGHT#<fl*,F>> 

1040 IF V<=F THEN BH«=0 BL=VAL<B*> : GOTO 1070 
1050 BH=VAL<LEFT*(B»,V-F>> 

1060 bl=valcright*<b*..f:o 
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Il divisore F è calcolato alle linee da 1002 a 1006. Alle linee 1010 e 1040 le lunghezze 
delle due stringhe sono confrontate con il divisore F come abbiamo già fatto nel 
caso analogo dell’addizione. Se una stringa è più corta di F allora la parte alta AH o 
BH è posto eguale a zero, mentre la parte bassa AL o BL prende tutti i caratteri 
della stringa. Se invece essa è più lunga di F viene divisa nelle due parti con AH o 
BH che prende le cifre a sinistra delle otto di destra: 

A$ |ìl2l3l4l5|6|7ia|9|0l1|2l 

B$ |5|7|9|4|3|517|2l 

AH ltil 234561 AL |B789012| 

BH |BBBBti57l BL |B943572l 

Le linee da 1000 a 1060 sono simili alle stesse linee del programma per l’addizione 
con gli interi multipli. Se avete bisogno di chiarimenti potete vedere il passo 2 che 
riguarda l’addizione. 

Passo 4: Calcolate la differenza separatamente tra le due parti alte e tra le due parti 
basse. BL è sottratto a AL e BH è sottratto a AH: 

AH Ibi 234561 AL |»789012| 

BH |Btftftftf57| BL l6S943572| 

Prima però di effettuare le sottrazioni bisogna controllare che il minuendo sia 
maggiore del sottraendo. Se BL è maggiore di AL allora la differenza è negativa. 
Questo crea dei problemi perchè CL negativo non può essere concatenato a CH: 

CH | Bxxxxxx| + CL I xxxxxx| = C |5xxxxxx xxxxxx| Errato 

Di conseguenza dobbiamo prendere un prestito da AH per avere una differenza 
positiva tra AL e BL. Con le linee da 1070 a 1090 prendiamo un prestito da AH per 
incrementare AL: 


1070 IF ftL>=BL THEN liOC 
1030 RL=AL+10tF 
1090 AH=hH-1 


Se AL è maggiore di BL saltate direttamente alla sottrazione. Diversamente 
dobbiamo prendere un prestito di un milione da AH per aumentare AL: 

1 -- +1000000 

AH |xxxxx|x] AlQxxxxxx] 

8H [xxxxxx| BL |xxxxxx| 

CH [xxxx3cx| CL |xxxxxx| 
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Una decina è sommata alla cifra più a sinistra di AL. Oppure in maniera più 
semplice possiamo aggiungere a AL la F-esima potenza di 10: 

Al-Al + IOtF 

Nel nostro caso appunto AL è minore di BL come è stato verificato alla linea 1070. 

AL |«789012I <8L |K9435721 

Di conseguenza dobbiamo prendere in prestito 1000000 (10 t F= 10 16 = 1000000) 
da ALI per aumentare AL: 

I080 RL=RL+10TF 
AL-AL + 1016 
AL = AL + 1000000 
AL= |789012| + 1000000 
AL = |l 7890121 

Dopo che AL è stato incrementato bisogna diminuire AH di 1: 

1090 RH=RH-1 

AH- |tf1234561 (0 
AH= |B1234551 

A questo punto possiamo effettuare le due sottrazioni e ottenere la parte bassa 
del risultato CL$ e la parte alta CHS. 

Le istruzioni da 1100 a 1102 calcolano CLS: 

; 10O CLi =STF.f • IHT-,hL-FL > > 

CL$=STR$I«1 789012 - «9435721 
CL$=STR$(«845340) 

CL$=«345540 


Mediante MID$ alla linea 1101 il carattere più a sinistra che rappresenta il segno 
viene troncato: 


i 101 ,:.L Ì=t-1I tu• CLf ■ 2 ■ LElKCLf '-1 
CL$=MIDSl |Ìl8l4l5l4[4]5l 2.6) 

CL$= |8|4|5|4|4|0| 


Se la lunghezza di CLS è inferiore a F, allora viene riportata a F mediante l’aggiunta 
di zeri presi dalla stringa ZEROS della linea 15: 


213 



15 2ER0*= " OO0O000000000000 " 

1132 CL-T-L.EFT t•. ZERO*.. F-LEH<CL*> 7+CL* 
CL$=LEFT$ IZER0$.6-6I+CL$ 

CL$=LEFT$ (ZERO$.0)+CL$ 

Alla linea 1110 viene calcolato il valore di CH$: 

11.10 CH*=STR*< INT ;FlH-EH7 j 
CH$=STR$(Iì!123455-K57) 

CH$=STR$(6I123398) 

CH$= m|1|2|3l3l9l5l 


Anche in questo caso il segno viene troncato mediante M1D$: 

1111 CH*=M I II* < CH*, 2, LEU C OH* 7-17 
CH$=MID$( [B)hl 2l3l3l9l 81 .2.6) 

CH$= |1|2l3|3|9|8l 

In conclusione la routine di sottrazione è la seguente: 

1070 IF flt_>=EL GOTO 1100 

789012 >=943572 » Istruzione falsa 

Il programma continua alla linea successiva 

1080 HL=FiL +10 tF 

AL=789012+1000000 
AL=1789012 

1090 FIH=fiH-l 

AH = 123456-1 
AHK123455 

1 100 CL*=S.TR*< INT■:lAL-EL 7 7 
CL$=STR$(6S 1789012 - «9435 72) 
CL$=STR$(B845540) 

CLÌ= l8|4|5l5l4l0l 

1101 CL*=f'1IIi*'XL*..2..LEN<CL*7-17 
CL$=MIO$( [5l8l4l5|5|4lOl .2.7-1) 
CL$=MID$l Bl8l4|5l514|0| .2.6) 

CL$= |8|4|5l5|4lÓl 

1102 CL*=LEFT*< ZERO*,F-LEN<CL*77+CL* 
CL$=LEFT$(ZER0$.6-6)+CL$ 
CL$=LEFT$(ZERO$.0) + 18|4|5|5|4|0| 
CL$= I8|4|51514|0| 
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1110 CH*=STR*<INT■flH-BH>> 
CH$=STR$(Bt23455 «57) 

CH$=STR$I«123398) 

CH$= ttl|l| 2|3|3|9|8) 

1111 CH*=MB*<CHf,2 ■ LEUCCH*> -1> 
CH$-MID$( |k|i|2|3|3|9|B| .2.7 -1) 
CH$-MID$[ |B|1|2|3|3|9|8| .26I 
CH$= hl2l3l3l9l8l 


Passo 5: Concatenate le stringhe parziali CHS e CL$: 

Ricordate però che solo gli F numeri più a destra di CLS saranno concatenati per 
evitare di includere il segno di CLS. 

1120 Ct-LHf+CLf 

C$=CH$ | | + CL$ [ | 

Cì- I I 


Passo 6: Troncate gli zeri a sinistra in C$ prima che sia visualizzata. Questo 
troncamento viene fatto nello stesso modo già visto al passo 5 della sottrazione con 
stringhe numeriche. Ecco le istruzioni necessarie: 

1130 FOF: 1 = 1 TO LENCCiO 

1140 IF VflL(mii|(C»,I,l))=0 THEN L=L+1 

1150 IF VRL(LEFTf-<Cr. I > >06 THEN I=LEN<C*> 

11NEXT I 

1 1 70 Cf=RIGHTfCC#.LENc;C:Ì>-L> 

1130 IF 3=1 THEN C*="-"+C* 


Se il marker S è uguale a 1 allora il risultato è negativo e un segno meno deve essere 
concatenato a C$ (linea 1180). 

Passo 7: Visualizzate la risposta e annullate le variabili e le stringhe prima di 
ritornare all’inizio della procedura: 

1130 FRI NT F'R I NT "flNSUER» " , C* PRINT 
1200 £:*="" Ci="" CH*="" CL*="“ 

1205 RH=0 HL=0 BH=0 BL=0 F=0 S=0 X'=0 V=0 
1210 GOTO 20 
1220 END 


In definitiva il programma completo è il seguente: 

10 PRINT“r**#MULTIRLE INTEGER SUBTRflCTION***" PRINT 
115 ZER0f="0000000000000000" 

20 INPUT HT . E-f 
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25 IF VAL(A#>=VflL(B#> THEN C#="0" GOTO 1150 
58 IF VAL<0* 1 >VRL<B*> GOTO 1000 
40 X#=A# A#=B# B#=N# 

50 5= 1 

1000 N=LEN(A#> V=LEN(B#> 

1002 IF >:>V THEN F=X/2 GOTO 1006 
1004 F=V/2 

1006 IF FI IHT • F> THEN F=INT<F>+1 

1010 IF XC=F THEN AH=0 AL =VAL<A #> GOTO 1040 

1020 AH=VAL LEFT # < A t , X-F > ,> 

l 030 Hl.=VAL < RIGHT# < Ai, F > > 

1040 IF VC=F THEN B=0 BL«VAL<B#> GOTO 1070 
1050 BH=VAL(LEFT#(B#•V-F>> 

1060 BL=VAL<RI GHT#( BT ■ F> > 

1070 IF AL>=EL GOTO 1100 
1030 AL=AL+10TF 
1050 AH=AH-1 

1100 CL#*$TR#<INT(AL-BL>> 

1101 CL#=MIII# <CL# •2j LEN(CL#>-1 ) 

1102 CL#=LEFT#(ZERO#,F-LEN< CL#> > +CL# 

1110 CH#=STR#<INT<AH-BH>> 

1111 CH#=mn#(CH#.2,LEN<CH#)-n 
1120 C:#=CH#+CL# 

1130 FOR 1=1 TO LEN<C #> 

1140 IF VAL<MIH#(C#, I • 1 ;• • =0 THEN L=L +1 
1150 IF VAL<LEFT#<C#,I •><>© THEN I*LEN(C#> 

1160 ne: :t i 

l 170 C#=RIGHT#■C#•LEN(C#>-L > 

1180 IF S=1 THEN C#="-"+C# 

1150 FRI NT PRINT"AHSWER* "•C# FRI NT 
1200 A#»"“ B#=" " C#="" CH#= 11 “ CL#="" 

1205 AH=Ó AL=0 BH=0 BL=0 F=0 3=0 X=@ Y=0 
1210 GOTO 20 
1220 END 

♦♦«MULTIPLE INTEGER SUETRACTION*** 

7123456785012 

7757343572 


ANSWER= 123358845440 

71234567850123456 
7757543572 


ANSWER= 1234567832175884 

733383333355333S3 

771234567850 


ANSWER» 5555558765432105 


Abbiamo così visto due metodi che ci permettono di effettuare la sottrazione con 
numeri di lunghezza maggiore di nove cifre. 
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MOLTIPLICAZIONE 

Nel caso della moltiplicazione è molto facile raggiungere il limite delle nove cifre 
anche quando il moltiplicatore e il moltiplicando sono abbastanza piccoli. Questa 
limitazione numerica ci obbliga infatti a rappresentare, i numeri maggiori di nove 
cifre, con la forma esponenziale. Vedremo adesso che grazie alla tecnica degli interi 
multipli è possibile rappresentare, non in forma esponenziale, prodoti con più di nove 
cifre. Come nei casi precedenti limitiamo la nostra trattazione per semplicità a 
prodotti fino a 16 cifre. 

Moltiplicazione di interi multipli 

Come abbiamo già visto per l’addizione e la sottrazione anche nel caso della 
moltiplicazione la tecnica degli interi multipli prevede che il moltiplicando e il 
moltiplicatore siano ripartiti in segmenti più piccoli. Tali segmenti sono quindi 
trattati separatamente e poi uniti nel risultato finale. 

I passi della procedura sono i seguenti: 

1. Caricate il moltiplicando e il moltiplicatore come due stringhe numeriche positi¬ 
ve. 

2. Dividete le stringhe nei segmenti alti e bassi. 

3. Moltiplicate i segmenti corrispondenti. 

4. Addizionate i segmenti prodotto per creare una unica stringa; troncate gli zeri 
anteriori. 

5. Visualizzate il risultato finale. 


Passo 1: Caricate il moltiplicando e il moltiplicatore come due stringhe numeriche 
positive. Poniamo sia A$ il moltiplicando e B$ il moltiplicatore. Anche in questo 
caso possiamo ovviare alla limitazione delle nove cifre imposta per le grandezze 
numeriche. 

Attenzione però che, nel caso della moltiplicazione, la lunghezza in cifre del 
prodotto è eguale alla somma delle lunghezze dei due fattori di moltiplicazione. Noi 
ci limitiamo a 16 cifre per il prodotto per cui le due stringhe A$ e B$ devono avere 
lunghezze la cui somma non superi 16. Se lo ritenete opportuno provate da voi ad 
estendere il campo di applicazione di questa routine. 

Nel nostro caso dobbiamo quindi avere: 


(Lunghezza A$)+(Lunghezza B$) £ 1 6 
Esempi: 12 + 4 £16 

2 + 3 <16 
8 + 8 <16 


Noi stabiliamo di moltiplicare due numeri di otto cifre ciascuno: 99999999 e 
99999999 che danno come risultato un numero di 16 cifre: 
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99999999— 8 cifre 

X99999999— + 8 cifre 


9999999800000001— 16 cifre 

Caricate il moltiplicando e il moltiplicatore come due stringhe numeriche positi¬ 
ve, A$ e B$: 


IO PRINT "r»!**MULTIPLE INTEGER MULTIPLICflTION#*#” : PRINT 
20 INPUT Fl*,B* 

RUN 

•«♦MULTIPLE INTEGER MULTIPLICftTION#*« 

7799999999 


Passo 2: Dividete le stringhe nei segmenti alti e bassi: AH e BH sono i segmenti alti 
e AL e BL sono i segmenti bassi. Il fattore di ripartizione è indicato con F. F viene 
calcolato alle linee da 1002 a 1006 (per le spiegazioni vi rimandiamo all’analogo 
caso riguardante l’addizione): 

1000 X=LEN<fi*>:V=LEN<B*> 

X—8 Y=8 

1002 IF X>V THEN F=X/2 GOTO 1008 

1004 F=V/2 

F=8/2 

F=4 

1006 IF F>INT<F>THEN F=INT<F>+1 


Appena definito il valore di F il programma ripartisce i due numeri nella parte 
alta e in quella bassa con la stessa tecnica già vista nei casi precedenti: 


1010 IF X<=F THEN FIH=0 flL=VHL<R») GOTO 1040 
1020 FlH=VFlL<LEFT*Cfl*,X-F)> 

1030 RL=VfiL<RIGHT*<Fl*,F>> 

1048 IF V<=F THEN BH=0 : BL=VFIL<B*> : GOTO 10?0 
1050 BH=VflL<LEFT*<B»,V-F)> 

1060 bl=vhl<right*';b*,f>) 


In questo caso A$ è diviso nelle due parti AH e AL di quattro cifre ciascuna e B$ 
nelle due parti BH e BL anche loro di quattro cifre: 

A$ |9|9|9|9|9|9|9|9| B$ l9|9|9|9|9|9|9|9| 


/ 

AH |9|9|9]9| 


\ 

Al |9|9l9|9| 


/ 

BH |9|9|9|9l 


\ 

BL |9|9|9|9| 
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Passo 3: Moltiplicate tra loro AH, AL, BH e BL così da ottenere i quattro prodotti: 
Pl$, P2$, P3$ e P4$. Questi quattro prodotti parziali si ottengono con le stesse 
regole della moltiplicazione algebrica come se AH, AL, BH e BL fossero delle 
singole cifre: 


[àh] |Àg 

* fBH] [BlI 


Moltiplicare A$ per B$ richiede quattro passi successici. Per prima cosa moltiplica¬ 
te AL per BL: 

IahI [ALk 
[BHÌ fBLK 


quindi AH per BL: 


IahI [al| 

113 ® 


Successivamente AL per BH: 

[ah] Ial] 
[bh| [bl] 

e infine AH per BH: 

Jah) [ali 
M8Hl [8Ll 


Nel complesso il processo completo di moltiplicazione è il seguente: 

[ah] [al}» [ah] (al] [ah] [al] -^ahI |al] 
x [bh[ [bl] x[bh1~^[bl1 xIbhT' [bl] xTbhI Fin 

I pi$ I I piì I I pii I I pi$ I 

I P2$ | | P2$ | | P2S | 

! P3$ | | P3j | 

r~p4$ I 

12 3 4 

Vediamo adesso con molta attenzione come si svolgono le singole operazioni, 
assegnando i loro valori a AH, AL, BH e BL: 


AH [«99991 
BH |ti9999[ 


AL |09999| 
BL 109999| 
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La prima moltiplicazione è AL per BL: 


|ÀHl [5§99g ^ 

X (BH] |B9999p ^ 


89991 

89991 

89991 

89991 

99980001 


La seconda è AH per BL: 


AH f9999] ^_ | AL 1 

x I BH | BL f9999l 

99980001 

999800010000 

Notate che P2 non è direttamente sottostante a P1, ma è spostato di quattro posti a 
sinistra (ricordate infatti le regole per incolonnare i prodotti parziali in una molti¬ 
plicazione manuale). Il terzo prodotto si otterrà quindi così: 

□AiT] AL 199951 
BH [99991 | BL | 

999800010000 


Il quarto e ultimo prodotto parziale sarà allora: 

AH [9999U | AL 1 
BH 19999 K fin 
9998000100000000 

Nel nostro esempio però tutti e quattro i segmenti parziali hanno lo stesso 
contenuto numerico per cui i prodotti sono sempre eguali a 99980001. L’unico 
aspetto, che distingue un prodotto parziale da un altro, è il diverso numero di zeri 
che devono essere posti a destra per ottenere poi l’esatto concatenamento. Questo 
allineamento con gli zeri viene fatto dalla linea 1070 alla linea 1100: 

1070 Pl#=STRS<BL*ftL> 

1080 P2*=STR*<BL#FlH>+F* 

1090 P3*=STR*<BH*8L>+F* 

1100 P4*=STR*<BH*«H>+F#+F* 


Se non si fossero aggiunti gli zeri avremmo avuto questo concatenamento inesatto: 
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PI 199980001| 

P2 I999800ÓT 1 Errato 
P3 1999800011 
P4 199980001| 


invece di quello corretto: 

[9998000l| 

199980001| 0000 
1999800ÓT1 0000 Corretto 
1999800011 00000000 


Gli zeri vengono aggiunti mediante la stringa F$ che viene creata con queste 
istruzioni: 

40 ZERO**"0000000000000000" 

1O03 F*=LEFT*<ZERO*,F:> 

F$=LEFT$(ZER0$.41 

fs= toToToTolololololololol 

F$= 0000'' 


Con le istruzioni dalla linea 1070 alla linea 1100 i prodotti parziali Pl$, P2$, P3$ e 
P4$ vengono calcolati e allineati in modo da poter essere subito sommati: 

AH |K|9|9|9|9| AL |K|9|9|9|9| 
x BH |H|9|9|9|9l BL |«|9|9|9|9| 

[999800011 PI 
19998000100001 P2 
19998000100051 P3 
199980001000000001 P4 
F$ F$ 


Al termine del passo 3 il programma è il seguente: 


20 INPUT Fi*.. B* 

30 IF VAL C A* > =0 OR VAL < B*> *0 THEN 
C*-"0" GOTO 1130 
40 ZERO*="0000000000000000" 

1000 X-LEN<A*> V-LENCB») 

1002 IF X>V THEH F=X/2 GOTO 1006 
1004 F=V/2 

1006 IF F>INT<F)THEN F=INT<F) + 1 


Ingresso dei valori di A$ e 8$ 

1 Se il moltiplicando o il mol- 
| tiplicatore = 0 allora la ri- 
? sposta (C$) = 0 

; calcolo del fattore F 
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1008 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


F*=LEFT#(2ER0#.F> 

IF XOF THEN RH=0 RL=VflL<fi*>: GOTO 
RH=VAL <LEFT*<Fi*, X-F> > 

RL=VFlL <R I GHT#<fi*, F > > 

IF VOF THEN BH=0 BL=VmL',B*> GOTO 
BH=VflL<LEFT*<B*4V-F>> 
BL=VfiL<RIGHT#(B*,F>) 
Pl*=STR*<BL*FlL> 

P2*=STR*<BL*fiH>+F* 

P3*=STR* <BH*fiL > +F* 
P4*=STR#<BH*flH>+F*+F* 


1 040 


1070 


Ripartizione di A$ 
e B$ nelle Parti alte 
e basse 


! Moltiplicazione 
di A$ e B$ e 
allineamento 
dei prodotti parziali 


Passo 4: Addizione dei quattro prodotti parziali. Questa è la parte più complicata, 
del metodo di moltiplicazione per interi multipli, in quanto si devono trasferire e 
ricevere parametri tra il programma principale e una subroutine. Useremo infatti 
una parte del programma di addizione con stringhe numeriche come subroutine per 
addizionare i prodotti parziali: 


2000 REM**RDD PRODUCTS*# 

2010 BLRNK*=" 

2020 X=LEN<fi*> V=LEN<B*> 

2030 IF XCV THEH fl*=LEFT*<BLHNK*,V-X>+«* 
2040 IF X>V THEN B*=LEFT* <BLFINK*. X-V>+B* 
2050 H=0 N=1 C*=”" 

2060 FOR I=LEN<Fl*> TO 1 STEP-1 
2070 R"VfiL<MID*<fl*, I, 1>> 

2080 Fl=Fl+r I'=0 

2090 B=VRL ( MIB* < B*.. 1, 1 > ) 

2100 C=fi+B 

2110 IF 0=10 THEN D=1 
2120 IF It=l RNIi 1 = 1 THEN N=2 
2130 C*=RIGHT* < STR*(C>,N >+C* 

2140 NEXT I 


Alla linea 1110 i contenuti di Pl$ e P2$ sono trasferiti come parametri A$ e B$ che 
saranno poi usati nella subroutine (dalla linea 2000 alla linea 2140): 

1110 fi*=Pl* B*=P2* 

A$ |9l9l9l8IQI0i0m 

B$ 1919191810101011 lOIOlolQI 


Notate che le variabili A$ e B$ non sono le stesse della linea 20. Si sono usati gli 
stessi nomi solo per uniformità tra tutte le routine matematiche che vi abbiamo 
presentato in questo capitolo. Attenzione poi che alla subroutinc 2000 sono stati 
trasferiti solo due dei quattro prodotti parziali. 

Dopo aver trasferito i valori di P1 $ e P2$ a A$ e B$ bisogna chiamare la 
subroutine di addizione: 


1120 GOSUB 2000 
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A$ e B$ sono allineati a destra e posti di eguale lunghezza alle linee da 2010 a 2040: 


2010 BLRNK*='‘ 

2020 X=LEN<.fi*> V=LEN<B*> 

2030 IF X<V THEN R*=LEFT#<BLRHK*,V-X>+R# 

2040 IF X>V THEN B*=LEFT*<BLRNk*, X-V.1+B* 

Ricordiamo che questa subroutine impiega lo stesso metodo del programma per 
l’addizione di due numeri con la tecnica delle stringhe numeriche. Le istruzioni 
dalla linea 2050 alla linea 2140 determinano il valore della stringa C$ come somma 
delle cifre corrispondenti di A$ e B$: 

2050 D=0 N=1 c*="“ 

2060 FOR I=LEN(R*> TO 1 STEP-1 
2070 fi=VRL<MID*<rl*, I, 1>> 

2080 fl=R+D D=0 

2090 B=VRL(Mir*<B*,I,1>> 

2100 C=R+B 

2110 IF 0=10 THEN D=1 
2120 IF H=1 RND 1=1 THEN N=2 
2130 C*=RIGHT*<STR*<C>,M>+C* 

2140 NEXT I 

Una volta ottenuta C$ bisogna troncarle gli eventuali zeri posti anteriormente. 
Questo viene fatto con un programma analogo a quello per la sottrazione con 
stringhe numeriche: 

3000 REM***TRUNCRTE LERI' ZEROS*** 

3001 L=0 

3010 FOR 1=1 TO LENCC*> 

3020 IF VRL(MID*<C*,I,1>?=0 THEN L-L+l 
3030 IF V'RLCLEFTt <C I)>O0 THEN I=LEN<C*> 

3040 NEXT I 

3050 C#=RIGHT#<C*,LEN<C*>-L> 

3060 RETURN 

Il valore di C$ viene quindi ritornato al programma principale e posto eguale a 
M1$: 


1130 M1*=C* 

Ovviamente C$ deve essere trasferito in un’altra variabile M1$ perchè sarà utilizza¬ 
to successivamente alla linea 1150. 

Per addizionare P3$ e P4$ i loro valori sono trasferiti ai parametri A$ e B$ prima 
di chiamare la sbroutine di addizione 2000: 

1132 fl*=P3* Bt=F'4f GOSUB 2000 

A$ f9f9l9T8l0|Olo [ol0i0|0|Q| 

e$ [9lgj 9la[o1oTò|i |olo|oloi o[o[olol 


Anche in questo caso la subroutine somma i due valori P3$ e P4$, tronca gli zeri 
posti a sinistra e restituisce il risultato C$ che sarà posto in M2$: 

1135 M2*=C* 
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La subroutine di addizione 2000 viene infine chiamata una terza volta per 
sommare tra loro Ml$ e M2$ e dare quindi il risultato finale C$: 

1140 fll=Mll B*=M2t 

AS [Ìlp:8l9l9l?i.»io[pjo0 
H$ i;il9[‘li8[st[9ji>f'ii0!0|ò; • Ì0j0]0[0! 

1150 GOSUB 2000 


Passo 5: A questo punto C$ contiene il risultato finale per cui può essere 
stampata. Con la istruzione GOTO 20 il programma ritorna all’inizio per effettuare 
una nuova operazione: 


1130 RRINT PPINT"RNSWER=",C* FRINT GOTO 20 
1200 END 

Ricapitoliamo schematicamente lo sviluppo di questo programma per la molti¬ 
plicazione di due numeri: 


Passo 1 


Passo 2 


Passo 3 


10 
20 
30 
40 
50 
1000 
1010 
11020 
' 1030 
1040 
1060 
1070 
. 1080 
1090 
110Q 
1110 
1120 


1130 


Passo 4 < 


1132 


1150 


Passo 5 ■ 


1190 

1200 


PRINT "*** MULTIPLE INTEGER MULTIPLICATION *»*" 

Ingresso moltiplicatore e moltiplicando 
e inizializzazione delle variabili 


Calcolo di F e ripartizione del 
moltiplicatore e del moltiplicando 
nelle parti alte e basse 


Calcolo dei quattro prodotti parziali 
P1$, P2$, P3$ e P4$ 

P1$ e P2$ passano a A$ e B$ 

GOSUB 2000-►subroutine di addizione (2000-2140) 

P1$ + P2$ - c$ 

-•- (3000-3600) troncamento degli zeri 

C$ passa a M1$ 

P3$ e P4$ passano a A$ e B$ 

GOSUB 2000 -►subroutine di addizione (2000-2140) 

P3$ + P4$ - C$ 

« (3000-3600) troncamento degli zeri 

C$ passa a M2$ 

M1$ e M2$ passano a A$ e B$ 

GOSUB 2000 . «subroutine di addizione (2000-2140) 

M1$ + M2$ - C$ 

»■ - - ■ (3000-3600) troncamento degli zeri 

PRINT C$ 

END 
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Il suo listato completo è il seguente: 

10 PRINT"r***MULTIPLE INTEGER MULTIPLICRTION***" : PRINT 
20 INPUT Pi*, E* 

30 IP VRL<fl*>=0 OR VRL<.'B*>=0 THEN C*="0" GOTO 1190 
40 ZERO*»"0000000000000000" 

1000 X=LEN<fl*>:V=LEN<B*> 

1002 IF X>V THEN F=X/ / 2 : GOTO 1008 
1004 F=V/2 

1006 IF F>INT<F>THEN F=INT<F>+1 
1008 F*=LEFT*<ZERO*,F> 

1010 IF X<=F THEN RH»0 RL=VRL<R*> : GOTO 1040 
1020 RH=VRL ( LEFT* < H*, X-F > > 

1030 RL»VRL<RIGHT*<R*,F>> 

1040 IF V<=F THEN EH=0 BL=VRL<B*> : GOTO 1070 
1050 BH=VRL<LEFT*<B*,V-F>> 

1060 BL=VflL<RIGHT*<B*,F>> 

1070 Pl*=STR*<BL*flL:> 

1080 P2*=STR*<BL*RH>+F* 

1090 P3*=STR*<BH#flL>+F# 

1100 P4*=STR*<BH*RH>*F#+F* 

1110 R*=P1* B*=P2* 

1120 GOSUB 2000 
1130 M1*=C# 

1132 pl*=P3* B*=P4* GOSUB 2000 
1135 M2*=C* 

1140 R*=M1* B*=M2* 

1150 GOSUB 2000 

1190 PRINT FRINT"flNSHER=“;C* PRINT GOTO 20 
1200 END 

2000 REM**RBD PRODUCTS** 

2010 BLftHK*=" 

2020 X=LEN <fi* ) V=LEN<B *> 

2030 IF X<V THEN R*=L£FT*(BLRNK*,V-X> +fl* 

2040 IF X>V THEN B*=LEFT*<BLRNK*,X-V>+B* 

2050 D=0'N=1 C*="" 

2060 FOP I=LEN<fì*) TO 1 STEF-1 
2070 R=VRL<MID*<P*, 1, 1>> 

2080 R=fi+D D=0 

2090 B-VRL< MID* < B*,1,1> > 

2100 C=R+B 

2110 IF 0 = 10 THEN D=1 
2120 IF B=1 HHD 1=1 THEN N=2 
2130 C*=RIGHT*<STR#<C>-N>+C* 

2140 NEXT I 

3000 REM***TRUNCRTE LERD ZEROS*** 

3001 L=0 

3010 FOR 1=1 TO LEH<C*> 

3020 IF VRL<MID*<C*, 1 , 1))=@ THEN L=L+1 
3030 IF VRL<LÉFT*<C*,I»<>0 THEN I-LEN<C*> 

3040 NEXT I 

3050 C*=RIGHT*<C*,LEN< C*)-L > 

3O60 RETURN 

*** MULTIPLE INTEGER MULTIPLICRTION*** 

■? ”‘?3 I 3 , S , S , S , !39 


RNSkIER» 9999999800000001 
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GRAFICA 


La rappresentazione grafica con i calcolatori è un argomento di notevole interes¬ 
se su cui sono stati scritti molti libri. In questo capitolo ci limitiamo a riportare le 
possibilità di programmazione grafica più importanti ottenibili con i calcolatori 
CBM. 

L'insieme di caratteri grafici standard comprende 64 simboli. Se state usando 
l’insieme di caratteri alternativo date il comando POKE 59468, 12 per ottenere i 
caratteri grafici. Se avete un calcolatore CBM 8000 potete richiamare i caratteri 
grafici mediante la funzione di editing grafico in questo modo: 


100 pnnt chr$(142) 


I caratteri grafici sono sempre posti sulla parte alta dei tasti e quindi devono 
essere battuti in modo shiftato. 

Molti caratteri grafici sono descritti qui di seguito, ma per un elenco completo vi 
rimandiamo alla Tabella 1-1 o all’Appendice A. 

GRAFICA IN MODO IMMEDIATO 

Tracciare un grafico in modo immediato non richiede alcuna istruzione PRINT, 
alcun numero di linea ne l’uso di virgolette. Potete muovere il cursore verso destra 
come verso sinistra o in alto e in basso senza mai premere RETURN. Per farvi capire 
come si “disegna” con il calcolatore vi mostriamo come tracciare questo quadrato: 


7 spazi 


O 7 spazi 


Anche se può sembrare molto semplice disegnare un quadrato in realtà ciò presenta 
tutti i problemi caratteristici della grafica con calcolatore. 

Disegno di un quadrato 

Sono necessari nove passi per disegnare un quadrato 7x7. 

Essi # sono: 

Passo 1: Portate in HOME il cursore. La posizione in alto a sinistra di HOME è 
presa come angolo di sinistra alto del quadrato (Figura 5-3a). 
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a. 

cursore in HOME b. angolo superiore sinistro c. lato superiore 


$ 


M 


" 


d. angolo superiore destro 

e. lato destro 

t. angolo inferiore destro 



& 






g. lato interiore 

h. angolo inferiore sinistro 

i. lato sinistro 










Indica la posizione del cursore dopo l'esecuzione dei comandi 



Figura 5-3: Disegno di un quadrato 


Passo 2: Battete l'angolo di sinistra in alto del quadrato mediante il tasto TOP 
LEFT CORNER (Figura 5-3b). 

Passo 3: Tracciate il lato superiore mediante il tasto TOP LINE HORIZONTAL 
battuto cinque volte (Figura 5-3c). 

Passo 4: Tracciate l’angolo superiore destro mediante il tasto TOP RIGHT 
CORNER (Figura 5-3d). 

Passo 5: Tracciate il lato verticale destro battendo cinque volte RIGHT LINE 
VERTICAL. 

È molto facile che a questo punto invece di tracciare una linea verticale ottenere 
qualcosa del genere: 


I-1 Nili 

Questo è avvenuto perchè il cursore si spostava automaticamente ad ogni battuta a 
destra. Per tracciare i caratteri verticalmente dovete ad ogni passo riposizionare il 
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cursore spostandolo in basso con CURSOR DOWN e a sinistra con CURSOR 
LEFT. In definitiva, per tracciare il lato veriticale destro, dovete battere cinque 
volte i due comandi del cursore e RIGHT LINE VERTICAL (Figura 5-3e). 

Passo 6: Tracciate l'angolo inferiore destro. Anche in questo caso prima di battere 
il carattere grafico dovete posizionare correttamente il cursore con CURSOR 
DOWN e CURSOR LEFT. Battete quindi BOTTOM RIGHT CURNER (Figura 
5 - 30 - 

Passo 7: Tracciate il lato inferiore. Prima di battere cinque volte BOTTOM LINE 
HORIZONTAL (Figura 5-3g) dovete pensare di sistemare il cursore. 

Un metodo è quello di disegnare la linea da destra verso sinistra per cui dovete 
ogni volta dare due comandi di CURSOR LEFT: 

I-1 I-1 

prima battitura 

\ 


seconda battitura 


Un altro metodo è quello di tracciarla da sinistra verso destra portando inizial¬ 
mente il cursore tutto a sinistra e poi tracciare semplicemente il lato. In questo caso 
date sei comandi CURSOR LEFT: 



Passo 8: Tracciate l’angolo inferiore sinistro. A seconda del metodo scelto per 
tracciare il lato inferiore dovrete dare due (metodo 1) oppure sei (metodo 2) volte il 
comando CURSOR LEFT per portare il cursore nell’angolo di sinistra in basso. A 
questo punto battete BOTTOM LEFT CORNER (Figura 5-3h). 

Passo 9: Disegnate il quarto lato verticale destro. Anche in questo caso dovete 
posizionare il cursore con CURSOR LEFT e CURSOR UP prima di battere LEFT 
LINE VERTICAL (Figura 5-3i). 

GRAFICA A PROGRAMMA 

Qualunque cosa abbiate disegnato sullo schermo andrà persa se date il comando 
NEW oppure se spegnete il calcolatore. Per memorizzare un grafico dovete inserir- 
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lo in un programma che sarà poi conservato su una cassetta o un dischetto. Per fare 
questo basta che ogni riga del disegno sia convertita in una stringa che viene poi 
inserita in una PRINT di un normale programma. 

Ritorniamo all’esempio del quadrato. Portiamo il cursore nella posizione HO¬ 
ME facendo molta attenzione a non premere CLEAR o RETURN. Se premete il 
primo cancellerete tutto lo schermo, se premete il secondo vi apparirà “READY” 
nel mezzo del quadrato: 


□ 





r 


R 

E 

A 

D, 

Y 

























E 




J 

- 


Se avete disegnato il quadrato così grande, da avere il lato superiore sulla prima riga 
e il lato inferiore sull’ultima riga dello schermo, e se il cursore è posizionato su 
questa riga in basso, allora premendo RETURN avrete uno scorrimento del 
quadrato verso l’alto di una riga per far posto in basso a “READY”: 



Dopo di RETURN 



Per questa ragione non si devono mai disegnare in modo immediato grafici di 
dimensioni superiori a 39 x 24 caratteri. 

Una volta che il cursore è nella posizione HOME si deve spostare tutto il disegno 
di alcuni caratteri a destra per far posto ai numeri di linea, al comando PRINT (o 
ancora meglio ?) e alle virgolette per far si che tutto il disegno diventi un “program¬ 
ma”. 

Una volta che avete portato il cursore nell’angolo di sinistra in alto del quadrato 
(Figura 5-4a), premete INSERT cinque volte così da spostare a destra l’angolo del 
quadrato (Figura 5-4b). Ora abbiamo abbastanza spazio per battere un numero di 
linea (100), il comando ? e le virgolette di apertura di una stringa (Figura 5-4c). 
Premiamo quindi RETURN e così il lato del quadrato diventa una stringa posta in 
un programma (Figura 5-4d). Nello stesso modo procediamo per tutte le righe che 
compongono il quadrato incrementando ogni volta il numero di linea (Figura 5-4e, 
0 - 
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Attenzione a porre i numeri di linea in ordine crescente per non distoreere il 
quadrato. Notate poi che non è necessario porre le virgolette di chiusura della 
stringa basta che battiate RETURN appena dopo che avete posto le prime virgolet¬ 
te. Se fate stampare il listato otterrete infine: 


100 PRINTT 
200 F'RINT"I 
300 PRINT "I 
400 PRINT'I 
500 PRI NT “I 
Ó00 PRINT"I 
700 PRINT"L 


Nell’esempio precedente abbiamo tracciato il quadrato in modo immediato e poi 
lo abbiamo inserito in un programma. Volendo si può tracciare un grafico diretta- 
mente nell’ambito di un programma purché ogni sua riga faccia parte di una 
istruzione PRINT: 


100 ?"( I 

200 ?“l I 

300 ?"l I 


La prima posizione immediatamente a destra delle virgolette diviene quindi la 
prima colonna utile per tracciare il disegno: attenzione a non dimenticarvene, 
perchè la parte destra del disegno potrebbe essere ribaltata sulla sinistra dello 
schermo! 

Se scrivete una stringa nella lista della PRINT lunga esattamente 40 caratteri, 
dovete allora porre le virgolette di chiusura e un punto e virgola in coda all’istruzio¬ 
ne. Se non ponete il punto e virgola verrà visualizzata una riga in più in quanto il 
cursore si posiziona automaticamente a capo dopo aver visualizzato qualcosa alla’ 
40-esima colonna. 

Vi diamo un consiglio: disegnate su un pezzo di carta quadrettata il vostro 
grafico prima di tracciarlo sullo schermo. Se volete inserirlo come programma 
ricordatevi di tener conto anche dello spazio per i numeri di linea e per le istruzioni. 


ANIMAZIONE 

Ogni grafico, numero o parola possono essere programmati per muoversi in alto, in 
basso, in diagonale, fuori dallo schermo oppure possono lampeggiare o muoversi più o 
meno lentamente. Tali possibilità possono essere usate in qualunque combinazione. 

Per illustrarvi come si possa ottenere l’animazione di un grafico cominciamo con 
l’animare il quadrato dell’esempio precedente. Invece di farlo apparire tutto assie¬ 
me faremo in modo che esso si formi sullo schermo elemento per elemento. 
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a. cursore in HOME 


b. inserite cinque spazi 



c. completate la linea di istruzione 

10 0? p | 



d. battete RETURN 

1 0 0 ? I 



e. inserite cinque spazi 
1 0 0 .. 


I. completate la linea di istruzione e battete RETURN 

1 0 0 ? I-1 

2 0 0? "I ! 


indica la posizione del cursore dopo l’esecuzione dei comandi 


Figura 5-4: Come convertire un grafico in istruzioni di un programma 


In questo caso il programma si presenta molto diverso perchè non vi è più il 
quadrato già formato come tante stringhe ma vi sono solo i caratteri grafici che lo 
tracceranno durante l’esecuzione del programma. 


Ritardo di tempo 

Il programma di animazione muove lentamente il cursore così da far sembrare 
che qualcuno stia disegnando il quadrato. Il tracciato inizia dall’angolo in alto a 
sinistra e procede in verso orario come indichiamo in questo disegno: 
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Come sempre il primo passo consiste nel pulire lo schermo. Così facendo si 
ottiene di portare in “home” il cursore: 

5 F'RIHT" rt" • 


La seconda istruzione prevede che si tracci l’angolo di sinistra in alto, ma non 
tutto il lato come si era fatto precedentemente: 


X 0 FRI NT“f"; 


A questo punto, prima di andare avanti, dobbiamo pensare di rallentare l'esecuzione 
delle singole istruzioni perchè con la velocità caratteristica di un calcolatore il nostro 
quadrato sarebbe tracciato in un tempo brevissimo. Questo rallentmento può essere 
ottenuto con l’inserimento di una routine di ritardo come la seguente: 

100 FOR J=1 TO 100 NEXT J RETURN 

Il ciclo FOR NEXT inserisce un tempo di attesa tra due caratteri grafici in quanto il 
calcolatore deve contare da 1 a 100. È chiaro che aumentando o diminuendo 
l’estremo superiore del ciclo si possono avere tempi diversi di attesa. 

Nel nostro programma per semplicità abbiamo posto il ciclo di attesa come se 
fosse una subroutine con il numero 100, equivalente a circa 1/10 di secondo. 

Programmazione del posizionamento dei caratteri grafici 

Per tracciare il lato superiore usiamo un ciclo FOR NEXT: 

15 FCIR 1*1 TO 5 FRI NT" - ", GOSUB 100 NEXT I 

Come si vede ad ogni esecuzione del ciclo viene richiamata la subroutine 100 di 
ritardo prima di tracciare il successivo carattere “—”. Così facendo il quadrato 
viene disegnato lentamente. Se invece avessimo posto: 

15 FRI NT"-", GOSUB 100 -— Erralo 

tutto il lato superiore sarebbe stato tracciato quasi istantaneamente. 

Per completare il lato superiore, scrivete l’istruzione per tracciare l’angolo 
superiore destro. In coda ponete poi il richiamo alla subroutine di ritardo 100: 

2'0 PRINT"T, GOSUB 100 

Fino a questo punto il programma è il seguente: 

5 PRINT'TT ; 

10 PRINT'T" ; GOSUB 100 

15 FOR 1=1 TO SPRINT" - "; GOSUB 100 : NEXT I 
20 PRINT"~I", GOSUB 100 
30 END 

100 FOR 1=1 T0 100 NEXT J RETURN 


232 



Ponetelo in esecuzione: vedrete sullo schermo formarsi lentamente il lato supe¬ 
riore da r a i i 

Se questo non avviene sarà sicuramente dovuto a qualche errore fatto nelle prime 
righe del programma. 

In questo programma ogni PRINT deve essere terminata con un punto e virgola 
(;) in modo da concatenare assieme le stringhe grafiche. Otterremo così che l’angolo 
“f” venga unito al lato" ”Se mancassero i punti e virgola il calcolatore 
andrebbe a capo dopo ogni PRINT per cui avremmo sullo schermo qualcosa del 
genere: 

r 


"1 

Gli altri tre lati del quadrato vengono tracciati nello stesso modo. Alla linea 20 
inizia la sequenza per tracciare il lato destro. Notate che vengono dati i comandi al 
cursore per compensare gli spostamenti automatici a destra. Le istruzioni PRINT, 
per generare i tre lati rimanenti, sono poste ognuna in un ciclo e sono le seguenti: 

PRINT<RIGHT LINE VERT XCURSORl > 

PRINT" MB" Lato destro <CURSORDOWN> 

PRINT<BOTTOM LINE HORIZ XCURSOR L > 

PRINTLato Interiore <CURSOR L. > 

PRINTCLEFT LINE VERT XCURSORL > 

PRINT"! in" Lato sinistro CCURSOR UP> 


Il listato completo del programma è il seguente: 

5 PRINT "ri", 

IO PRINT"I - " . GGSUB 100 

15 FGR 1=1TO 5 PRINT" - ". GOSUB 100 NEXT I 
20 PRINT" - )". GOSUB 100 

25 POR I=1TG 5 PRINT" UH"; GOSUB 100 NEXT I 
30 PRINT"J". GOSUB 100 

35 POR 1 = 1 TO 5 PRINT"-IBI". GOSUB 100 NEXT I 
40 FRI NT“L". GOSUB 100 

45 POR 1 = 1TO 5 FRINT" I ID" . GGSUB 100 NEXT I 
50 END 

1O0 FOR J=1 TO 10 NEXT J RETURN 

Provate ora a porlo in esecuzione. Ottenete per caso qualcosa del genere? 


i-1 

REflBV. 

I 

I 

I 

L I _ 


233 




Se succede questo vuol dire che avete dimenticato di posizionare correttamente 
il cursore. Se analizziamo attentamente il programma vediamo che alle linee 20,30 
e 40 non abbiamo posto il controllo del cursore dopo il tracciamento dell’angolo. Il 
programma corretto risulta quindi il seguente: 


5 PRINT“.T’; 

10 PRINT T" 1 GOSUB 100 

15 FOR 1=1 TO 5 : PRINT" - ", GOSUB 100 : NEXT I 
20 PRINT "TOC". GOSUB 100 

25 FOR 1=1 TO 5 : PRINT" IM" : GOSUB 100 NEXT I 
30 PRINT"Jil". GOSUB 100 

35 FOR 1 = 1 TO 5 : PRINT “_HI" ; GOSUB 100 NEXT I 
40 PRINT" Uri", GOSUB 100 

45 FOR 1 = 1 TO 5PRINT"I in"; : GOSUB 100 : NEXT I 
50 END 

100 FOR 1=1 TO 100 NEXT J RETURN 


Provate ancora ad eseguire il programma. Otterrete il segnale READY sovrap¬ 
posto al quadrato: 


FlEfiDV. 

0 

I 


Il quadrato è stato tracciato lentamente come volevamo, ma il segnale READY è 
apparso sulla seconda riga dello schermo. Per evitare questo è sufficiente porre 
alcuni comandi di CURSOR DOWN prima di terminare il programma alla linea 
50: 


50 FRI NT " «««««««" END 


Proviamo allora una ultima esecuzione del programma e constatiamo che il 
quadrato viene visualizzato correttamente: 


i 

i 

i 


RERDV. 

& 


Allargamento del quadrato 

A questo punto vi proponiamo di allargare il quadrato così da formare una 
cornice dello schermo. Supponiamo sempre che lo schermo sia a 40 colonne per cui 
vogliamo tracciare un quadrato o meglio dire un rettangolo, con i lati a un 
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quadratino di distanza dal bordo dello schermo: 



Siccome lo schermo ha le dimensioni 40x25, il rettangolo sarà invece 38x23: 

40—2 0 spazio per ogni lato) = 38 
25 -2 (1 spazio per ogni lato) = 23 


Il programma per traciare questo rettangolo può essere ottenuto da quello 
precedente con poche modifiche. È sufficiente estendere gli estremi superiori dei 
cicli FOR NEXT che disegnano i lati e portarli ai valori 36 per quelli orizzontali e 21 
per quelli verticali. La parte che riguarda gli angoli rimane inalterata: 

i5 FOR I “1 TO 36 . -Lati orizzontali 

25 FOR 1 = 1 TO 21:?" |[«r ; 

35 FOR 1 = 1 TO 36 

45 FOR 1 = 1 TO 21 ?"lin" ; -—^ Lati verticali 

Prima di considerare terminato questo programma dovete decidere dove far appa¬ 
rire il segnale di READY. Se infatti lo lasciate dove era nel programma precedente 
esso farà scorrere verso l’alto, fuori dello schermo, il rettangolo. L’unica soluzione, 
ma anche la più interessante è che portiate READY all’interno perchè solo così ha 
significato aver tracciato una cornice dello schermo. 


OROLOGIO IN TEMPO REALE 

Un’altra caratteristica dei calcolatori CBM è quella di avere un orologio in tempo 
reale. Tale orologio dà il tempo in ore, minuti e secondi tramite le stringhe TIMES 
o TI$. 

Regolazione dell'orogologio 

Per regolare l’orologio e in particolare per porre l’ora giusta quando si accende il 
calcolatore , dovete usare questo formato: 


TIMES = "hhmmss" 

dove: 

hh ore comprese tra 00 e 23 
mm minuti compresi tra 00 e 59 
ss secondi compresi tra 00 e 59 
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Con hh dovete dare le ore comprese tra 00 e 23; a mezzanotte le ore passano da 23 59 
59 a 00 00 00. 

Quando dovete dare l’ora all’accensione del vostro calcolatore, ponete la stringa 
TIMES con qualche secondo in più e poi appena raggiungete quel valore premete 
RETURN: 

TIME$="120150“ 

Lettura dell’ora 

Per leggere l’ora basta dare il seguente comando: 

?TIME* 

e il calcolatore vi risponderà: 

?TIME* 

120200 

L’orologio dei calcolatori CBM si mantiene attivo sino a che il calcolatore 
rimane acceso. Se spegnete il calcolatore dovete ripetere l’operazione di regolazione 
vista più sopra al momento della sua riaccensione. 

Uso dell'orologio in tempo reale. 

Se volessimo analizzare attentamente il funzionamento dell’orologio vedremmo 
che esso scatta ogni 1/60 di secondo. Questo tempo base lo chiameremo “attimo” 
proprio per la sua brevità (in inglese “jiffy”). Ogni 1/60 di secondo quindi la 
variabile numerica TIME o TI viene incrementata: essa parte da zero quando il 
calcolatore viene acceso e va avanti sino a 51.839.999 “jiffy”. La variabile di stringa 
TIMES da invece il tempo in ore-minuti-secondi convertendo il tempo di TIME che è 
dato in “attimi”. Notate che la stringa TIMES non è semplicemente la conversione 
in stringa della variabile numerica TIME, ma è la vera decodifica del tempo da 
“attimi” in ore-minuti-secondi. 

Questa conversione è fatta nel modo seguente. Ogni 60 “attimi” costituiscono un 
secondo; ogni minuto contiene 60 secondi e quindi 3600 “attimi”; ogni ora infine 
contiene 60 minuti e 216.000 “attimi”. Ecco uno schema riepilogativo: 

Secondi/») = Jiffy 


Minuti/aeoo = Jiffy 


Ore/jisooo — Jiffy 
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Qui di seguito vi diamo una routine completa perconvertire il tempo da “attimi” 
J in ore H, minuti M e secondi S: 


i Gì J=TI 

20 H= I NT ( ,1/216000.’ 


Calcola le ore 

Le funzione INT prende solo la 
parte infera 


Se vi sono ore, si sottraggono 

30 IF HO0 THEN J=J-H*21600 gli "attimi" di ogni ora 


40 M=INT< J/3600) Calcola i minuti 

5® IF HO0 THEH J=J-M#3600 

SO '3= I NT J/fc"CO 


Si sottraggono gli "attimi" 
di ogni minuto 

Calcola i secondi 


5 PRI NT " rPEFlL TI ME “ F'R I NT PR INT 
10 J=TI 
15 Tt=TIME# 

20 H= INT<J/21600:> 

30 IF HO0 THEN J=,T-H*21600 
40 M=INT <3/ 3600> 

50 IF MO0 THEN J=J-M*3600 
60 S=INT<J/60> 

70 H#=RIGHT*< STR* <H > .• 2> 

:30 m#=right*<str$<m:> , 2> 

30 S*=RIGHT*<STR*<S.> ,2 • 

100 PRIHT"H M S ",H*," "; Si•"TIME# "•T* 

110 PR INT" iAMH" ■ GOTO 10 


In questo programma le istruzioni alle linee 70, 80 e 90 convertono le variabili 
dell’ora da numeriche in stringhe. Alla linea 100 vengono stampati sia il tempo 
calcolato dal programma che quello dato dalla funzione TIMES. Notate che i due 
valori sono eguali. 

Per avere una idea della rapidità dello scorrere del tempo misurato in “attimi” e 
della conversione degli “attimi” in ora normale, vi proponiamo questo programmi¬ 
no che visualizza sia TIMES che TIME: 


5 REM **RUNNING CLCCKS** 

10 PRINT "nvEFlL TIME " F’RINT F'R INT "J1FFV TIME 
20 FCiR 1 = 1 T0 235953 
30 PRINT"fl" ■ TFtB< 13);TIME* 

40 FOR J=1 T0 60 STEP 2 
50 PRINT"HH«" ;TflB':i2:>;TI 
60 NEXT J 
70 NEXT I 
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Il ciclo FOR NEXT per la variabile TIME alla linea 40 ha il passo di incremento 
STEP eguale a 2 (cioè ogni 2 “attimi”) per questi due motivi: 

1. Visualizzare 60 “attimi” al secondo è troppo veloce da leggere. 

2. Visualizzare ogni “attimo” richiede molto più tempo che incrementarli. Questo 
fa rallentare il ciclo così che la visualizazione di TIMES diviene molto più lenta 
di quello che dovrebbe essere. Eseguite questo programma e vedrete che gli 
“attimi” sono incrementati di 60 per ogni secondo. Se invece togliete lo STEP 2 
alla linea 40 noterete un certo ritardo di tempo nella visualizzazione di TIMES. 

Tempo reale: 000705 

Tempo in “attimi": 25500 

L’uso del tempo misurato in “attimi” è molto utile quando si debba misurare la 
velocità di esecuzione di un programma. Queste misure di tempo permettono di 
valutare l’efficienza di un programma. Consideriamo per esempio questo piccolo 
programma: 


10 PRIHT"r»*KEVFOfiRIi TEST**" FRI NT 
20 FOR 1=32 TO 127 
30 FRINT CHR*<I); 

40 NEXT I 

50 FOR .1=161 TO 255 
60 FRINT 
70 NEXT .1 

30 FRINT PRINT FRINT"**END TEST**" 


Ne possiamo calcolare il tempo di esecuzione nel modo seguente: 

1. Il tempo TI (o TIMES) viene assegnato ad una variabile A all’inizio dell’esecu¬ 
zione. 

2. Lo stesso TI (o TIMES) viene poi riassegnato ad un’altra variabile B alla fine 
dell’esecuzione. 

3. Facendo la differenza tra le due variabili si ottiene il tempo impiegato per 
l’esecuzione del programma misurato in “attimi”. 

Riportiamo il programma dato più sopra con l’aggiunta delle istruzioni per 
calcolare il suo tempo di esecuzione: 


Passo 1 10 PRINT"."J**KEVBÙFlRIi TEST**" FRINT 

15 ft=TI 

20 FOR 1=32 TO 127 
30 PRINT CHR* ■: I > ; 

40 NEXT I 

50 FOR .1=161 TO 255 
60 PRINT CHR*<J>; 

70 NEXT J 
Passo 2 75 B=T I 

30 PRINT PRINT FRINT"**END TEST**" 
Passo 3 100 PRINT PRINT"TI = " ; B-Fl 
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Alla linea 15 il tempo TI viene assegnato alla variabile A: 

15 R=T I 

A = Tl lfcOQ 1 762] 

A |fcOQ1762| 

Durante l’esecuzione del programma TI viene automaticamente incrementato 60 
volte al secondo. Alla fine, alla linea 75, assegnamo il nuovo valore di TI a B: 


75 B=TI 

B-TI 160019531 
B— IfeOOl 953| 

Alla linea 100 si calcola la differenza tra i due tempi A e B: 

lòti FRI NT F'R I NT " TI = ", B-Ff 
B | UOPI 9531 
- A | 60017621 

Nell’esempio si vede che occorrono 191 "attimi” per visualizzare tutti i caratteri 
della tastiera sullo schermo. Per avere il tempo in secondi basta dividere per 60: 

191/60 = 3.1833 


cioè occorrono 3.1833 secondi per eseguire questo programma. Qui di seguito 
trovate un esempio di esecuzione: 


#*KEVBOHRD TEST#* 

! "#*?;&' 0#+, 70123456789 ; <=>?0flBCDEFG 
HI JKLMNOPORSTUVWXV2CS3-M- ! "Itti'OH,-./ 
0123456789: ;0>?l* _ _l * L <r 11 . S _ r^-H I I I— 

__l. --I I-, '-’L'.'I—t#— 4 Pt ,xO* t*-H 111 "4 

I « - _J » II- ■ H-HI I I —** n 

**EHD TEST** 

TI = 191 


Visualizzazione di un orologio digitale 

Il programma che qui di seguito vi riportiamo è molto lungo, ma anche molto 
interessante. Esso dà l’ora in forma digitale sullo schermo usando delle grosse cifre 
create con i caratteri grafici. Esso dà solo le ore e i minuti perchè sullo schermo non 
vi è ulteriore spazio per i secondi. Notate che tale programma è quasi tutto 
costituito da istruzioni PRINT. 


239 



1 00 PRI NT " ntìflsWMWW" : 

110 S=INT':TIME,'60) 

120 M=INT<S/60> 

130 H=INT<M/60> 

140 M=M-H*60 
150 T=H 
160 GOSUB500 

i ?0 pr iNT"iwsia iin iiimiM iato mine ", 

180 T=tl 

150 GOSUB500 

200 FRI NT "TU" 

210 GOTO 110 

500 U=T-10*INT<T/10> 

51G T=INT<T/10> 

520 D=T+1 
530 GOSUB600 
540 D=U+1 
550 GOSUB600 
560 RETURN 

600 OH I' GOSUB 1000 ■ 110£i -1200 • 1300.1400, 1500, 1600 
1700, 1300, 1900 
610 RETURN 


1 000 

PR I NT " ir 

B 1 

IBI 

■aaaaiM" : 

1001 

PR I NT " sr 

Si 

■a 


1 002 

PRINT"a a - 

■*a 

a 


1003 

FRI NT" :l B 

a 

a 


1004 

PFINT"fl fi 

a 

a 


1005 

FRINT"a fi 

a 

m 


1006 

PRINT" a fi 

a 

a 


1 007 

PRINT" a "B 

ir 

a 


1 003 

PR I NT " -43 

wn 

aa 

aaaaaw". 

1009 

PRINT" ^a 

w 

ni unir, 

101 0 

1 1 00 

RETURN 
PRINT” ir 

9 1 


aaaao. ; 

1 101 

PRI NT a 

■ 1 


BBBBIO" ; 

1 102 

FRINT" a 

B 1 


aaaam". 

i 103 

PRINT" a 

9 1 


■■■■(ir . 

1 104 

PRINT" a 

B I 


BBBBlRl" . 

1 105 

PRINT" a 

B 1 


BBBBM" . 

1 1 06 

PRINT" a 

9 t 


Baaanr ; 

1 IO? 

FRINT" a 

9 1 


mani" : 

1 1 OS 

PR I NT a 

■ 1 


aaaaiu" ; 

1 1 OS» 

PRINT" a 

■ 

limili T‘, 

1110 

1 200 

RETURN 

PR I NT " sr 

^, 

BB 

BBBBM" . 

1201 

PRINT" ir 

^9 

■a 

aaaaiM" ; 

1202 

print" a sr- 

"«a 

a 


1203 

PRINT "a fi 

sr 

a 


1 204 

print" ir en 

aa 

■■■■ni" ; 

1205 

PRINT" ir 

■r | 

aa 

BBBBM" . 

1 206 

PRINT" ir 

W I 

aa 

aaaaur ; 

1207 

PRINT" ST 

w aa 


1203 

PRINT"sr 

m 

aa 

aaaaur : 

1209 

PRINT"a 

m 

• 11111 r i ir , 

1210 

1 300 

RETURN 
PRINT" ir 

B 1 

BB 

araaanr , 

1301 

PRINT" ir 

^9 

aa 

BBaBBIM" ; 

1 302 

PRINT"a sr 

''a 

m 
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1303 fri nt" zr asinini» 

1304 FRI NT" 9nBBBBBBBlN" ■ 

1305 FRI NT" 3 '^aflBflBBBH!" . 

1306 FRI NT" 43 aBBBBBBBDO" . 

130? FRI NT" a -<■ ST aBBBBBBBIrl" . 
1303 FRI NT" 43 ariBBBBBBBIM" . 

1303 FRINT" 43 W ' 111111111 ", 
131© RETURN 

1400 FRINT" tT 9 IBBBBBBBO! 

1401 FRINT" ZT 9 IBBBBBBBItT 

1402 FRINT " zr 9 IBBBBBBBIrr, 

1403 FRINT" zr 9 IBBBBBBBIrr ; 

1404 FRINT" iT WU 9 ■■BBBBBBIkI . 

1405 FRI NT "a W a 9 lIBBBBBBfR ; 

1406 frint” a aaBaaaaaiu", 

140? FRINT" a aBBBBBBBPQ" , 

1403 FRINT" a 9 IBBBBBBBIrl" i 

1403 FRINT" a 9 TTTTTTm" . 
1410 RETURN 


1500 

FRINT"a 

aBBBBI 

Iflllrl" 

1501 

FRINT"a 

aBBBBI 

IBBIrl" ; 

1502 

FRINT" a 9 

IBBBBI 

IBBIrl . 

1503 

FRINT"a 

a IBBBBI 

IBBI» . 

1504 

FRINT"a 

4aaBBBi 

IBBIrl" 

1505 

FRINT" -VI aiiiil 

■BAI» . 

1506 

FRINT" a anni 

IBBIrl . 

15@7 

FRINT"a 4B 

zr aaai 

IBBBBI» 

1503 

FRI NT " "43 

amili 

IBBIrl" 

1509 

FRINT" -43 

a- TTT 

rr rrr>" 

1510 

RETURN 



1 600 

FRINT" zr 

-a IBBBBI 

IBBIrl" . 

1601 

FRINT" iT 

-«IBBBBI 

IBBIrl" . 

1602 

FRINT" 3 9 r 

43 ani 

IBBBBI»" 

1603 

FRI NT"3 9 

IBBBBI 

IBBIrl", 

1604 

FRINT"3 

-a IBBBBI 

IBBI»" ; 

1605 

FRINT"3 

aiBBBBI 

IBBIrl" . 

1606 

FRINT"3 9r 

43 aBBI 

IBBBBI» 

1607 

FRI NT " a a» 

ar aBBi 

IBBBBI»" 

160S 

FRI NT'"43 

9T1BBBBI 

IBBI»" . 

1609 

FRINT" 43 

mr iti 

'TI UH" 

1610 

RETURN 



1 700 

FRINT"3 

aBBBBI 

IBBI»" ■ 

1 ?0 1 

FRINT"3 

aBBBBI 

IBBI»" . 

1 ?02 

FR I NT " zr aBBBBI 

IBBI» . 

1 ?03 

FRINT" zr 

aiBBBBI 

IBBI»" , 

1 704 

FRINT" 59- 

W IBBBBI 

IBBI»" , 

1 705 

FRINT" iT 

W IBBBBI 

IBBI»" , 

1706 

FRINT" 3 9T IBBBBI 

■ BBIIJ".. 

1707 

FRINT" 3 9 

IBBBBI 

IBBIrl", 

1708 

FRINT"* 3 9 

IBBBBI 

IBBIrl" ; 

1 709 

FRINT" 3 9 

m 

rrrrm" 

1710 

RETURN 



1300 

FRINT" iT 

-a IBBBBI 

IBBI»" , 

1801 

FRINT" iT 

IBBBBI 

IBBI»" . 

1 W02 

FRI NT"3 W 

43 aBBI 

IBBBBI»" 

1803 

FRINT"3 a 

a r an 

IBBBBI»" 

1804 

FRINT"43 

■FIBBBBI 

Mani" ; 

1805 

FR I NT " zr 

anni 

IBBI»" ; 

1 306 

FRI NT "3 9*- 

43 aaa 

IBBBBI»" 
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ìse? fri NT" si 9 sr HHiiaiaur. 
ìses print" 9 •naaaaaaaii'J", 

1809 FRINT" 9 ITI II III]", 

1810 RETURN 

1900 frint” :r 9 laaaaaaaoi". 

1981 FRI NT" ir 9MBBBBBBtM", 

1902 FRI NT "a ar = 9BBR0BBB('r . 

1903 FRI NT" :1 9 iT 9BBBBBBB0Q" . 

1964 FRI NT" 9 9BBBBBBBI»" . 


1905 FRI NT" ~*a 9BBBBBBBOJ" 

1906 FRI NT" a 9BBBBBBBIN" 

1307 FRI NT "a -9 :r 9BBBBBBB1H" ; 

1908 PRINT' ^a 91BBBBBBBOJ" 

1909 FRI NT" Ta gr- TTI IT 111 )" , 

1910 RETURN 


NUMERI A CASO 


I numeri a caso sono generati nei calcolatori CBM mediante un algoritmo che 
dipende da un numero iniziale detto “seme”. Lo stesso seme genera sempre la stessa 
sequenza di numeri. 

SEME DEI NUMERI A CASO 

Ogni calcolatore CBM ha un suo seme che viene generato quando il calcolatore è 
acceso. Non tutti i calcolatori hanno lo stesso numero, ma il numero generato in 
uno specifico calcolatore è sempre lo stesso. Di conseguenza in ogni calcolatore la 
sequenza di numeri che viene generata è sempre la stessa quando si accende la 
macchina. Qui di seguito vi diamo un esempio di come possano essere generati i 
primi cinque numeri quando venga richiamata la funzione RND (arg) subito dopo 
l’accensione del calcolatore: 

### COMMODORE BFISIC ### 

716? BVTES FREE 
READY. 

POR 1=1 TO 5 ? RND(1> NEXT 
RUN 

.880969862 
.355265655 
.659512252 
.803285178 
. 546991144 
REFcDV. 


La struttura logica dei numeri a caso si comprende meglio osservando una loro 
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lunga sequenza e non solo pochi esempi. Questa sequenza varia da calcolatore a 
calcolatore, ma è sempre la stessa per una specifica macchina. 

Ogni sequenza di numeri a caso è identificata da un seme che è sempre un numero 
negativo. Ecco uno schema esemplificativo: 


I primi cinque 
valori a caso 


I 

1 

1-1- 

1 

. 5*22223'54 

. 529448248 .61924584? 

.618803331 1 

.217340603 

.217131897 .217986376 

.215972203I 

.6371848992 

.125471??? .12554828 

.126128101 > 

.S6767501? 

. 56955767 3 .867369871" 

.869521353| 

.305311??7 

. 805S'3 l 8b29 .3051 <55423 

.887814458/ 


Quattro valori 
di "seme" 


I primi cinque 
valori a caso 


Ad ogni numero seme corrisponde una diversa sequenza. Siccome i numeri 
negativi sono innumerabili anche le sequenze possibili sono innumerabili. 

Per specificare una sequenza dovete porre il numero seme negativo come argo¬ 
mento della funzione RND. Questa funzione può essere poi assegnata ad una 
qualunque variabile: 


20 X=RND<-2> 


Attenzione però che porre l’argomento negativo nella funzione RND equivale a 
ri-inizializzarla, cioè se la stavate già usando così facendo ritornate da capo. Se per 
esempio in un particolare calcolatore CBM il primo numero della sequenza a caso 
con seme -2 è .529448248 allora ogni volta che ponete RND (-2) ottenete questo 
stesso valore iniziale. Ricordate però che con un qualunque altro calcolatore CBM 
non otterrete lo stesso numero iniziale pur dando il seme —2. 

Sequenza di numeri a caso 

Una volta che avete inizializzato la funzione RND potete ottenere i valori della sua 
sequenza semplicemente richiamandola con un qualunque argomento positivo. In 

questo esempio richiamiamo cinque diverse sequenze caratterizzate dai semi —1, 
—2, —3, —4 e —5. Per ogni sequenza visualizziamo i primi cinque valori: 

30 FOR I=-l TO -5 STEP -1 
35 X=RND<I>SPRINTI 
40 FOR J=1 TO 5 
50 FRINT RND<1) 

60 NEXT J 
70 NEXT I 
100 STOP 

La funzione RND posta alla linea 35 inizializza per cinque volte la generazione dei 


243 






numeri a caso. La RND della linea 50 genera invece i singoli valori delle cinque 
sequenze. Ecco il risultato: 

-1 

.592222864 
.217948608 
.0371848992 
.867675019 
.305311997 
-2 

.529448248 
.217131897 
.125471999 
.869597673 
.805998629 


.619245849 
.217986376 
. 12554828 
.867369876 
.808165423 
-4 

.618803331 
.215972203 
.126123101 
. 369521353 
.807814458 

_ cr 

I529738186 
.216913235 
.128416988 
.868422708 


Per dimostrarvi che la sequenza di numeri è sempre la stessa per ogni fissato 
seme, vi proponiamo questo programma in cui le sequenze sono interrotte al terzo 
valore e poi riprese fino al quinto: 


30 FOR I=-l T0 -5 JTEP -1 
•35 X=RNIKI> PRIHT I 
40 FOR J=1 T0 3 
50 PRIHT RHD<1> 

60 NEXT J 

70 FOR K=10 T0 11 

75 PRIHT Runa; 

80 HEXT K 
90 HEXT I 
180 STOP 


Ponete in esecuzione questo programma e vedrete che le sequenze sono esattamente 
le stesse del caso precedente. Questo significa che una funzione RANDOM conti¬ 
nua a dare il valore a caso successivo ogni qualvolta, e in qualunque modo, sia 
richiamata. Solo quando il suo argomento è negativo allora ritorna al primo valore 
della sequenza. Per esempio se avessimo aggiunto questa istruzione al nostro 
programma: 


65 >:=RND(.I ' 
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avremmo ottenuto che, dopo aver visualizzato i primi tre valori, i successivi due 
sarebbero stati eguali al primo e al secondo. 

Provate ora per esercizio a variare i parametri di quest’ultimo programma 
oppure generate la sequenza di numeri a caso che ritenete più interessante. 


Stampa di numeri a caso 

Per meglio comprendere e confrontare tra loro le sequenze dei numeri a caso è 
preferibile che voi li stampiate piuttosto che visualizzarli. (Ovviamente ciò implica 
che abbiate una stampante). Nel capitolo 6 vedremo come programmare una 
stampante, ma ora è sufficiente che vediate in maniera intuitiva le istruzionei 
necessarie per il suo funzionamento: 


10 OPEN 4.4 
i'O CMD 4 

30 POR I=-l T0 -5 STEP -1 
35 X=RND(I> PRINTI 
40 POR J=1 T0 5 
50 PRINT RUBO) 

60 NEXT J 
PO NEXT I 
S@ PRINT#4 
•50 CLOSE 4 
lOO STOP 


Le istruzioni alle linee 10 e 20 aprono il collegamento con la stampante mentre 
quelle alle linee 80 e 90 lo chiudono. Eseguite quindi questo programma così avrete 
su carta le sequenze di numeri a caso e potrete più facilmente confrontarle tra loro. 

Se l’argomento della funzione RND non è ne positivo ne negativo, cioè è posto 
eguale a zero, allora si ottiene una sequenza di valori che dipende dall’orologio del 
sistema. Tali sequenze non saranno mai eguali, ma sempre molto simili. Provate 
infatti a sostiuire l’argomento della RND, alla linea 50, con 0 invece di 1 ed eseguite 
più volte il programma. Otterrete sequenze simili, ma mai eguali. 

Uso di “semi” a caso 

Per generare sequenze, sempre completamente diverse, dovete in qualche modo 
usare dei numeri seme presi a caso. Questo può essere fatto usando il valore TI 
dell’orologio del calcolatore: 

10 ”X=RNIK _ TI> REM START SEEB 

Adesso avrete una diversa sequenza ogni volta che eseguirete l’istruzione 10 
(escluso il caso che la eseguiate esattamente ogni 24 ore!). 

Un altro modo per generare un seme a caso è quello di scrivere RND (-RND(O)), 
ma solo se il vostro calcolatore ha le nuove ROM per il BASIC. Per esempio: 

IO X=RMB<-RND<0)> 
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Anche qui avrete una diversa sequenza ogni volta che questa istruzione viene 
eseguita. 

Nel programma successivo abbiamo usato l’argomento —TI perchè è compatibile 
sia con le vecchie che con le nuove ROM, ma se potete è preferibile usare l’argomen¬ 
to -RND(O) invece di —TI. 

Sequenza analoga al lancio del dati 

I valori ottenuti con la funzione RND sono sempre compresi tra 0 e 1. Se volete 
numeri compresi in un altro intervallo, dovete allora fare una conversione. Se per 
esempio volete ottenere solo i sei numeri interi da 1 a 6, come nel caso del lancio di 
un dado, dovete fare la seguente conversione. Moltiplicate dapprima RND per 6: 

6-RND(1 ) 

questo vi darà i numeri frazionari tra 0 e 6 (0 < n < 6). Aggiungete quindi 1 per avere 
1 < n <7: 

6-RND11I + 1 

Convertite quindi il numero da frazionario in intero togliendogli la parte decimale; 
otterrete infine i numeri interi tra 1 e 6: 

INT(6-RND(1 )+1 ) 
o 

A%=6*RND(1) + 1 

In generale se volte generare a caso numeri interi compresi in un certo intervallo 
potete usare queste istruzioni: 

lNT((n+1)*RND(1)J Intervallo tra 0 e n 

INTtn-RNDtl ) +1 ) Intervallo tra 1 e n 

INT((n-m+1)-RNO(1)+m Intervallo tra m e n 

Notate però che i numeri interi nel nostro calcolatore possono essere compresi solo 
nell’intervallo + 32767. 

II programma seguente genera a caso numeri interi comrpesi tra —50 e 50 (vedi 
linea 10). Il seme di partenza è preso come valore -TI per cui ogni volta che il 
programma è rieseguito genera sequenze diverse. I numeri possono essere anche 
negativi perchè sono compresi tra + e — 50. Per formare il programma dovete 
premere STOP. Ecco il programma e un modulo di esecuzione: 


IO M=-50 N=50 

io X=RNO<—TI> PRINT X 

30 FCiR 1 = 1 TO 8 

40 C/XU-M+1 >*RND< I >+M 

50 PRINT CX, HEXT I 

eo PRINT GOTO 30 

RUN 
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i . i7fc3J0S5E-C>. 


-14 

3 - 

34 

-35 

-47 

-44 

23 

31 

29 

-8 - 

36 

-28 

-42 

-28 

15 

14 

7 ~ 

13 

3 — > 

8 3 

41 

19 

-43 


35 

12 

24 

-7 

-7 -, 

21 - 

47 

1 

-32 

-49 

7 

-49 

28 

-22 

-17 

-24 

-12 

7 

27 

1 

11 

9 -1 

3 3 

■Cj 

48 

49 

1 

34 

-46 

-29 

-43 

29 

-18 

5 - 

30 

2 

8 -2 

3 -1 

3 -2 

3 

48 

-15 

-12 

-45 

26 

44 

-25 

2 

-9 

4 2 

'7 ' 

50 

33 - 

16 - 

43 - 

15 

20 

20 

17 

43 

-18 

-48 

-38 

24 

-16 

43 

- 5G 

36 

-38 

5 

1 1 

25 

-30 

6 - 

25 

-47 

32 

10 

42 

-21 

- 4 ? 

-36 

-28 

-8 

16 

-20 

42 

-4 

-34 

36 

-17 

27 

-8 

-49 

-6 - 

35 

-13 

19 

-35 

48 

-42 

36 

-25 

2 

-49 

37 

47 

38 

-20 

-25 

32 

- 5 © 

-5 - 

•35 - 

35 

17 

-41 

36 

-19 

4 

33 

-20 

45 

-7 

48 

-4 -, 

33 — 

IO 

1 

27 - 

39 

-14 

—38 

-6 

4 1 

O 

-5 

17 

2 

49 

0 -40 -5 

32 


-50 

32 

-24 

-37 

-38 

22 

-13 

-27 

-24 

-30 

35 

10 

6 

16 

-50 

49 

-49 

50 

43 

38 

-21 

47 

-43 

23 

32 

-35 

-18 

-5 

27 

-46 

-14 

23 

-49 

-45 

27 

7 

-35 

1 

46 - 

25 

-8 

20 - 

e - 

12 - 

46 - 

31 - 

17 - 

13 

-47 

47 

-49 

18 

47 

17 

40 

-13 

-40 

48 

-41 

-33 

5 

-14 

-46 

45 

-29 

-37 

22 

17 

42 

33 

-31 

49 


S 36 37 11 18 29 25 

O -1 2 -16 32 -29 -31 33 

-9 -41 -4 47 12 -22 9 -43 

-40 32 15 32 -50 3 -9 19 


Provate a cambiare i valori M e N alla linea 10 per esercizio. In particolare ponete 
M = 1 e N = 6 così che ritrovate la sequenza analoga al lancio di un dato. 

Selezione a caso delle carie da gioco 

Se osservate attentamente la sequenza precedente di numeri compresi nell'inter- 
vallo ± 50 vi accorgerete che al massimo dopo 100 valori i numeri devono sicura¬ 
mente ripetersi. Cioè uno stesso valore può uscire ripetute volte e anche di seguito. 
Per molte applicazioni queste sequenze di numeri generati a caso con ripetizione vanno 
bene, ma ci sono altri casi in cui i numeri non si devono ripetere. Un esempio classico è 
quello delle carte da gioco in cui se una carta è stata presa del mazzo non può più 
essere ripescata. 

Vediamo come è possibile scrivere un programma per generare numeri a caso senza 
ripetizioni. Per fare un esempio concreto supponiamo di simulare la successione di 
52 carte da gioco prese da un mazzo ben mescolato. Identifichiamo il valore delle 
carte in un vettore D% di 52 elementi (D%(0) non viene usato). Questa attribuzione 
può essere fatta come preferite e supponiamo sia la seguente: 

Asso - 1. 2-2. 3-3. Q 12. K 13 

Spade - da 0 Cuori - da 13 Fiori da 26 Quadri - da 39 
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Con questa convenzione abbiamo l'asso di picche = 1 + 0= 1, la regina di picche = 
12 + 0 = 12, il tre di cuori = 3 + 13 = 16, ecc. 

Per tenere conto delle carte già uscite usiamo un vettore flag FL i cui 52 elementi 
possono essere 0 o 1. Il valore di seme viene visualizzato alla linea 20. Successiva¬ 
mente vengono visualizzati i 52 valori della sequenza non ripetitiva, come potete 
voi stessi controllare. Ogni volta che rieseguite il programma ottenete una sequenza 
diversa. 


16 DIM FL<52>,DX<52> 

20 X=RND<-TI) PRIHT X 
30 FOR 1=1 TO 52 
40 CX=52#RNB<1>+1 
50 IF FL<CJi><>0 GOTO 40 
60 !)’/.(. I >=C5i : FL<C/{>=1 
70 PRINT CV.i 
80 NEXT I 
RUM 


48 

40 

13 

37 

50 

43 

46 

31 

43 

44 

c. Z' 

r. 

2-0 

25 

11 

3 

35 

32 

30 

24 

41 

26 5 

; e 

1 

45 

10 

21 

14 

42 

20 

15 

34 

18 

52 

47 

~7 

( 

16 

8 

13 

33 

36 4 

17 

C; 

22 

27 

23 

28 

33 

2 

51 

12 

RIJN 










1.01 

154 

728E- 

06 







14 

35 

52 

50 

26 

48 

27 

36 

34 

25 

13 

20 

41 

ri-j 

33 

7 

46 

24 

23 

28 

3 3 

12 

43 

2 

31 

44 

4 

1 

32 

37 3 

0 40 

2i 

2 45 48 4 

C. * 

43 

16 

11 i 

6 10 

23 

8 

51 

17 

8 

15 

38 

5 

21 

13 


Se avete effettivamente eseguito questo programma avrete notato che diviene più 
lento man mano che “estrae le carte”. Questo succede perchè deve estrarre più 
numeri a caso prima di trovarne uno non ancora estratto. Se volete potete voi stessi 
migliorare questa routine in modo da renderla più veloce: per esempio potete far 
uscire l’ultima carta, proprio perchè è l'ultima rimasta, senza attendere che sia 
generata dai numeri a caso. 

CARATTERI FORZATI A CASO SULLO SCHERMO CON POKE 

Il programma che segue è una modifica del programma PROVA. Invece di 
visualizzare un carattere in maniera uniforme e continua su tutto lo schermo, esso 
lo fa apparire a caso in un punto qualunque mediante il comando POKE indirizzato 
a una delle 1.000 posizioni della memoria dello schermo. 
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Il programma è questo: 


10 rem ********** PRO v a ********** 

15 REM 

20 REM VISUALIZZAZIONE A CASO HI UN 

20 REM CARATTERE BATTUTO ALLA TASTIERA 

25 REM 

40 REM ********************************* 

90 PRINT"BATTI UH TASTO 0 <R2 PER TERMINARE"; 

100 GETCf IR C*=“" GOTO lOO 

105 IF Cf=CHR$U3) GOTO ITO 

Ilo FRINT"3"; REM PULISCE LO SCHERMO 

i20 X=RND(-TI > REM PONE UN NUOVO "SEME" 

•25 : = (ASC<Cf)AND128V2 OR (RSCTCJ.'RNIiES) 

12? A=1000*RNIK 1>+32768 

130 ROTE A,C REM VISUAL12. CARATTERE 

140 GET Df IF Bf="“ GOTO 127 

150 CT—DT 

160 GOTO 105 

ITO END 


Fino alla linea 110 esso è uguale alla versione precedente; carica un nuovo valore 
di C$ e pulisce lo schermo. Alla linea 120 viene preparato un seme per la successiva 
generazione a caso dei punti dello schermo. Alla linea 125 C$ è convertito nell’equi¬ 
valente numero POKE. L’istruzione 127 calcola un indirizzo dello schermo a caso, 
nell’intervallo tra 32768 e 33767, mediante la routine già vista prima con M = 32768 
e N = 33767: 


(n-m+1)-RND(1)+m Formula per 

(33767-32768+ 1)*RND(1)+32 768 !a linea 127 

= 1000*RND(11 + 32768 


Notate che non possiamo usare variabili numeriche intere, ne con la funzione INT ne 
con il segno %, per indicare l’indirizzo sullo schermo perchè essi sono superiori al 
numero intero massimo 32767. Fortunatamente la funzione POKE accetta numeri 
frazionari che poi converte in interi troncando la parte frazionaria. (In altri casi in 
cui avete bisogno di numeri interi a caso fuori dall’intervallo consentito potete 
usare variabili frazionarie purché esse abbiano la stessa parte intera). 

A questo punto dobbiamo farvi notare che la sequenza di numeri a caso usata è 
del tipo con ripetizioni per cui può essere indirizzato uno stesso punto dello 
schermo più volte. Inoltre occorrerà attendere sempre più tempo per riempire le 
ultime posizioni che rimangono libere. La prima metà dello schermo viene riempita 
quasi subito, ma per riempirlo tutto passeranno anche più di tre minuti. 

Un modo per accelerare il nostro programma consiste nell’eliminare i comandi 
POKE indirizzati alle posizioni dello schermo già coperte. 

In questa seconda versione di PROVA si fa in modo di generare, ad ogni passo, 
numeri a caso in un intervallo più piccolo così da lasciare fuori i valori già usciti. Per 
poter far questo si deve introdurre una tavola di corrispondenza T() di 1000 
elementi e ad ogni passo si spostano verso la sua parte alta i valori già usciti, mentre 
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si usa la parte bassa come nuovo intervallo per generare il numero successivo. Il 
programma PROVA versione 2 è il seguente: 


; REM VERSIONE 2 RANDOM 
6 REM 

20 REM ********** PRO V A ********** 

2 5 REM 

20 REM VISUALI ZZASI ONE A CASO DI UN 

30 REM CARATTERE BATTUTO ALLA TASTIERA 
35 REM 

40 REM ********************************* 

70 DIM T<999> 

SO GOSUB 200 REM INIZIZLIZZ. TAVOLA 

140 PRINT"BATTI UN TASTO 0 <R> PER TERMINARE". 

:00 GETCf IF C*="” GOTO 100 

105 IF C#=CHRt<13> GOTO 170 

210 PRINT"T; REM PULISCE LO SCHERMO 

120 X*RND<-TI> REM PONE UN NUOVO "SEME 

125 C=(ASC< Cf >AND128>/2 OR <ASC <C$ >AND63) 

126 FOR N = 999 TO 0 STEP -1 

127 fl?>(H+l>*RHD<1) REM PRENDE UN ELEM. 

128 A=T(A?i)+32768 REM INDRIZZO POKE 

129 TP=T(AS) : T<A5i>=TIH) : T<N)=TP 

130 POKE A,C 
140 NEXT N 
150 Cf=DT 
160 GOTO 100 
170 END 

199 REM *** SUBROUTI NE INIZI AL. TAVOLA *** 

200 FOR 1=0 TO 999 :TCI>=I NEXT 
210 RETURN 


Alla linea 70 si dimensiona la tavola T() con 1000 posizioni. 

Alla linea 80 si richiama una subroutine di inizializzazione di T così da ottenere: 
T(0) = 0, T(l) = 1,.... T(999) = 999. È da notare che questo riempimento ordinato 
di T non è strettamente necessario in quanto i suoi elementi verranno poi scelti a 
caso. 

Le linee da 90 a 125 sono le stesse della versione precedente. Con il ciclo da 126 a 
140 vengono generati numeri in intervalli sempre più piccoli (STEP —1), mentre i 
valori già usciti sono trasferiti nella parte alta della tavola con l’istruzione 129. 
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Questo manuale, in due volumi, è la versione italiana del famo¬ 
sissimo testo americano "PET/CBM Personal Computer Guide". 
La scelta di presentare l’opera in due volumi è dovuta all'ampiez¬ 
za e profondità degli argomenti trattati. 

Tutto ciò che è necessario sapere sui calcolatori CBM si trova in 
questo manuale, come programmarli in BASIC, come installarli e 
molte altre utilissime notizie che riguardano la più famosa fami¬ 
glia di Personal Computer. 

Anche se questo manuale non tratta espressamente dei più 
recenti VIC 20 e C 64. ne consigliamo egualmente la consultazio¬ 
ne ai possessori di questi calcolatori in quanto il linguaggio 
BASIC CBM è praticamente eguale per tutti i calcolatori Commo¬ 
dore. 
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